* module/scheme/sort.sld: New R7RS library shim for (rnrs sorting). * am/bootstrap.am (SOURCES): Register it. ---
(no changes since v1) am/bootstrap.am | 1 + module/scheme/sort.sld | 21 +++++++++++++++++++++ 2 files changed, 22 insertions(+) create mode 100644 module/scheme/sort.sld diff --git a/am/bootstrap.am b/am/bootstrap.am index 2990d91c3..de5eddb58 100644 --- a/am/bootstrap.am +++ b/am/bootstrap.am @@ -289,6 +289,7 @@ SOURCES = \ scheme/r5rs.scm \ scheme/read.scm \ scheme/repl.scm \ + scheme/sort.sld \ scheme/time.scm \ scheme/write.scm \ \ diff --git a/module/scheme/sort.sld b/module/scheme/sort.sld new file mode 100644 index 000000000..d8b560d1f --- /dev/null +++ b/module/scheme/sort.sld @@ -0,0 +1,21 @@ +;;; sorting.sld --- R7RS library exposing (rnrs sorting). + +;;; Copyright (C) 2023 Free Software Foundation, Inc. +;;; +;;; This library is free software: you can redistribute it and/or modify +;;; it under the terms of the GNU Lesser General Public License as +;;; published by the Free Software Foundation, either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with this program. If not, see +;;; <http://www.gnu.org/licenses/>. + +(define-library (scheme sort) + (export list-sort vector-sort vector-sort!) + (import (rnrs sorting))) -- 2.41.0