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

(lset=): Allow no list arguments, per srfi spec example.

Browse source
This commit is contained in:
Kevin Ryde 2005-01-23 20:47:12 +00:00
parent 611a429a8e
commit 9d494a7371
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
srfi/srfi-1.scm
View file

@ -724,10 +724,10 @@
(and (every (lambda (el) (member el (car r) =)) f) (and (every (lambda (el) (member el (car r) =)) f)
(lp (car r) (cdr r))))))) (lp (car r) (cdr r)))))))
(define (lset= = list1 . rest) (define (lset= = . rest)
(if (null? rest) (if (null? rest)
#t #t
(let lp ((f list1) (r rest)) (let lp ((f (car rest)) (r (cdr rest)))
(or (null? r) (or (null? r)
(and (every (lambda (el) (member el (car r) =)) f) (and (every (lambda (el) (member el (car r) =)) f)
(every (lambda (el) (member el f =)) (car r)) (every (lambda (el) (member el f =)) (car r))