mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +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

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

@ -21,15 +21,24 @@
(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
(any exists) every
(every for-all) remove
(remove remp) member
assoc
(member memp-internal) find
(assoc assp-internal))) partition
fold-right
filter-map)
(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 (remove obj list) (remp (lambda (elt) (equal? obj elt)) list))
(define (remv obj list) (remp (lambda (elt) (eqv? obj elt)) list)) (define (remv obj list) (remp (lambda (elt) (eqv? obj elt)) list))