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

Fix syntax and consolidate imports for (rnrs lists).

Browse source 
* module/rnrs/6/lists.scm: Import syntax is
  `(only (import-set) id-1 ...)', not `(only (import-set) (id-1 ...))';
  use `rename' form as wrapper instead of creating separate custom
  interface on SRFI-1.
This commit is contained in:
Julian Graham 2010-03-30 14:27:00 -04:00
parent ace75ab775
commit bc4db0905f
1 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
module/rnrs/6/lists.scm
View file

@ -21,9 +21,18 @@
(export find for-all exists filter partition fold-left fold-right remp remove (export find for-all exists filter partition fold-left fold-right remp remove
remv remq memp member memv memq assp assoc assv assq cons*) remv remq memp member memv memq assp assoc assv assq cons*)
(import (rnrs base (6)) (import (rnrs base (6))
(only (guile) (filter member memv memq assoc assv assq cons*)) (only (guile) filter member memv memq assoc assv assq cons*)
(only (srfi srfi-1) (find partition fold-right filter-map)) (rename (only (srfi srfi-1) fold
(rename (srfi srfi-1) (fold fold-left) any
every
remove
member
assoc
find
partition
fold-right
filter-map)
(fold fold-left)
(any exists) (any exists)
(every for-all) (every for-all)
(remove remp) (remove remp)