summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-23 20:47:12 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-23 20:47:12 +0000
commit9d494a7371a945ece8ad985fcb3bb7c85c40330b (patch)
treeb836569978d172b6847c5a3be4156dfa0d18cefd
parent611a429a8e7efe16ce5ed7a9f474d4fc94b55253 (diff)
downloadguile-9d494a7371a945ece8ad985fcb3bb7c85c40330b.tar.gz
(lset=): Allow no list arguments, per srfi spec example.
-rw-r--r--srfi/srfi-1.scm4
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))