[Guile-commits] GNU Guile branch, wip-r6rs-libraries, updated. release_1-9-8-77-g55d944f

[Julian Graham]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=55d944f9b2583e0f2e54c5fe9bfd34ac94c38e83

The branch, wip-r6rs-libraries has been updated
       via  55d944f9b2583e0f2e54c5fe9bfd34ac94c38e83 (commit)
       via  8d490faeafa43b8e12a61e1673e71b05ae5941e5 (commit)
      from  8aaf061b0a57417062a8f69c4c3ddf4f5180474f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 55d944f9b2583e0f2e54c5fe9bfd34ac94c38e83
Author: Julian Graham <address@hidden>
Date:   Sat Mar 20 08:36:17 2010 -0400

    Fix missing export of string->symbol in (rnrs base).
    
    * module/rnrs/6/base.scm: Add string->symbol to library exports.

commit 8d490faeafa43b8e12a61e1673e71b05ae5941e5
Author: Julian Graham <address@hidden>
Date:   Fri Mar 19 20:03:46 2010 -0400

    Implementation for the R6RS (rnrs lists) library.
    
    * module/Makefile.am: Add module/rnrs/6/lists.scm to RNRS_SOURCES.
    * module/rnrs/6/lists.scm: New file.

-----------------------------------------------------------------------

Summary of changes:
 module/Makefile.am      |    7 ++++---
 module/rnrs/6/base.scm  |    6 +++---
 module/rnrs/6/lists.scm |   40 ++++++++++++++++++++++++++++++++++++++++
 3 files changed, 47 insertions(+), 6 deletions(-)
 create mode 100644 module/rnrs/6/lists.scm

diff --git a/module/Makefile.am b/module/Makefile.am
index a98b8e9..2f56205 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -260,14 +260,15 @@ RNRS_SOURCES =                                    \
   rnrs/6/conditions.scm                                \
   rnrs/6/control.scm                           \
   rnrs/6/exceptions.scm                                \
+  rnrs/6/lists.scm                             \
   rnrs/6/syntax-case.scm                       \
   rnrs/arithmetic/6/bitwise.scm                        \
   rnrs/bytevector.scm                          \
+  rnrs/io/6/simple.scm                         \
+  rnrs/io/ports.scm                            \
   rnrs/records/6/inspection.scm                        \
   rnrs/records/6/procedural.scm                        \
-  rnrs/records/6/syntactic.scm                 \
-  rnrs/io/ports.scm                            \
-  rnrs/io/6/simple.scm
+  rnrs/records/6/syntactic.scm
 
 EXTRA_DIST += scripts/ChangeLog-2008
 EXTRA_DIST += scripts/README
diff --git a/module/rnrs/6/base.scm b/module/rnrs/6/base.scm
index cc17d8a..e7f52c4 100644
--- a/module/rnrs/6/base.scm
+++ b/module/rnrs/6/base.scm
@@ -50,7 +50,7 @@
 
          list? list length append reverse list-tail list-ref map for-each
 
-         symbol->string symbol->string symbol=?
+         symbol->string string->symbol symbol=?
 
          char->integer integer->char char=? char<? char>? char<=? char>=?
 
@@ -72,6 +72,6 @@
 
          syntax-rules identifier-syntax)
  (import (guile)
-        (rename (only (guile (6)) for-each map) (for-each vector-for-each) 
-                                                (map vector-map))
+        (rename (only (guile) for-each map)
+                (for-each vector-for-each) (map vector-map))
         (srfi srfi-11)))
diff --git a/module/rnrs/6/lists.scm b/module/rnrs/6/lists.scm
new file mode 100644
index 0000000..7544a73
--- /dev/null
+++ b/module/rnrs/6/lists.scm
@@ -0,0 +1,40 @@
+;;; lists.scm --- The R6RS list utilities 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
+
+
+(library (rnrs lists (6))
+  (export find for-all exists filter partition fold-left fold-right remp 
remove 
+         remv remq memp member memv memq assp assoc assv assq cons*)
+  (import (rnrs base (6))
+          (only (guile) (filter member memv memq assoc assv assq cons*))
+         (only (srfi srfi-1) (find partition fold-right filter-map))
+         (rename (srfi srfi-1) (fold fold-left) 
+                               (any exists) 
+                               (every for-all)
+                               (remove remp)
+                               
+                               (member memp-internal)
+                               (assoc assp-internal)))
+
+  (define (remove obj list) (remp (lambda (elt) (equal? obj elt)) list))
+  (define (remv obj list) (remp (lambda (elt) (eqv? obj elt)) list))
+  (define (remq obj list) (remp (lambda (elt) (eq? obj elt)) list))
+
+  (define (memp pred list) (memp-internal #f list pred))
+  (define (assp pred list) (assp-internal #f list pred))
+)


hooks/post-receive
-- 
GNU Guile