* module/scheme/sort.sld: New R7RS library shim for (rnrs sorting). * am/bootstrap.am (SOURCES): Register it. * NEWS: Update NEWS.
--- (no changes since v5) Changes in v5: - Update NEWS NEWS | 1 + am/bootstrap.am | 1 + module/scheme/sort.sld | 21 +++++++++++++++++++++ 3 files changed, 23 insertions(+) create mode 100644 module/scheme/sort.sld diff --git a/NEWS b/NEWS index 45023d9fb..614a2bc7f 100644 --- a/NEWS +++ b/NEWS @@ -24,6 +24,7 @@ the compiler reports it as "possibly unused". ** Add (srfi 126), a hash tables library ** Add (srfi 128), a comparators library ** Add (scheme comparator) +** Add (scheme sort) * Bug fixes diff --git a/am/bootstrap.am b/am/bootstrap.am index 614d56d0d..e0517f69d 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