diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-23 20:47:12 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-23 20:47:12 +0000 |
commit | 9d494a7371a945ece8ad985fcb3bb7c85c40330b (patch) | |
tree | b836569978d172b6847c5a3be4156dfa0d18cefd | |
parent | 611a429a8e7efe16ce5ed7a9f474d4fc94b55253 (diff) | |
download | guile-9d494a7371a945ece8ad985fcb3bb7c85c40330b.tar.gz |
(lset=): Allow no list arguments, per srfi spec example.
-rw-r--r-- | srfi/srfi-1.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm index 44b1625d2..bce3006cd 100644 --- a/srfi/srfi-1.scm +++ b/srfi/srfi-1.scm @@ -724,10 +724,10 @@ (and (every (lambda (el) (member el (car r) =)) f) (lp (car r) (cdr r))))))) -(define (lset= = list1 . rest) +(define (lset= = . rest) (if (null? rest) #t - (let lp ((f list1) (r rest)) + (let lp ((f (car rest)) (r (cdr rest))) (or (null? r) (and (every (lambda (el) (member el (car r) =)) f) (every (lambda (el) (member el f =)) (car r)) |