mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-15 18:20:42 +02:00
Code Activity

Implementation for the (rnrs mutable-pairs) and (rnrs mutable-strings)

Browse source 
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.
This commit is contained in:
Julian Graham 2010-03-27 15:28:24 -04:00
parent 3d5bc1ad6f
commit a725e27bda
3 changed files with 46 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/Makefile.am
View file

@ -263,6 +263,8 @@ RNRS_SOURCES = \
rnrs/6/files.scm \ rnrs/6/files.scm \
rnrs/6/hashtables.scm \ rnrs/6/hashtables.scm \
rnrs/6/lists.scm \ rnrs/6/lists.scm \
rnrs/6/mutable-pairs.scm \
rnrs/6/mutable-strings.scm \
rnrs/6/programs.scm \ rnrs/6/programs.scm \
rnrs/6/r5rs.scm \ rnrs/6/r5rs.scm \
rnrs/6/sorting.scm \ rnrs/6/sorting.scm \

22
module/rnrs/6/mutable-pairs.scm Normal file
View file

@ -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!)))

22
module/rnrs/6/mutable-strings.scm Normal file
View file

@ -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!)))