From a725e27bdaeef13c14006f46200130467a5571d5 Mon Sep 17 00:00:00 2001 From: Julian Graham Date: Sat, 27 Mar 2010 15:28:24 -0400 Subject: [PATCH] Implementation for the (rnrs mutable-pairs) and (rnrs mutable-strings) libraries. * module/Makefile.am: Add rnrs/6/mutable-pairs.scm and rnrs/6/mutable-strings.scm to RNRS_SOURCES. * module/rnrs/6/mutable-pairs.scm: New file. * module/rnrs/6/mutable-strings.scm: New file. --- module/Makefile.am | 2 ++ module/rnrs/6/mutable-pairs.scm | 22 ++++++++++++++++++++++ module/rnrs/6/mutable-strings.scm | 22 ++++++++++++++++++++++ 3 files changed, 46 insertions(+) create mode 100644 module/rnrs/6/mutable-pairs.scm create mode 100644 module/rnrs/6/mutable-strings.scm diff --git a/module/Makefile.am b/module/Makefile.am index 69c8a4af4..6e6b0cddd 100644 --- a/module/Makefile.am +++ b/module/Makefile.am @@ -263,6 +263,8 @@ RNRS_SOURCES = \ rnrs/6/files.scm \ rnrs/6/hashtables.scm \ rnrs/6/lists.scm \ + rnrs/6/mutable-pairs.scm \ + rnrs/6/mutable-strings.scm \ rnrs/6/programs.scm \ rnrs/6/r5rs.scm \ rnrs/6/sorting.scm \ diff --git a/module/rnrs/6/mutable-pairs.scm b/module/rnrs/6/mutable-pairs.scm new file mode 100644 index 000000000..3e5da142f --- /dev/null +++ b/module/rnrs/6/mutable-pairs.scm @@ -0,0 +1,22 @@ +;;; mutable-pairs.scm --- The R6RS mutable pair library + +;; Copyright (C) 2010 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 library; if not, write to the Free Software +;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA +^L + +(library (rnrs mutable-pairs (6)) + (export set-car! set-cdr!) + (import (only (guile) set-car! set-cdr!))) diff --git a/module/rnrs/6/mutable-strings.scm b/module/rnrs/6/mutable-strings.scm new file mode 100644 index 000000000..1eeb8f35c --- /dev/null +++ b/module/rnrs/6/mutable-strings.scm @@ -0,0 +1,22 @@ +;;; mutable-strings.scm --- The R6RS mutable string library + +;; Copyright (C) 2010 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 library; if not, write to the Free Software +;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA +^L + +(library (rnrs mutable-strings (6)) + (export string-set! string-fill!) + (import (only (guile) string-set! string-fill!)))