summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-27 23:11:36 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-27 23:11:36 +0000
commit600af2edd5094ae7f8565f447b63ff6bbd84653d (patch)
tree8ff3a83dce906a3fd0a20362084f9675397fac62
parent8447f463ba72597621085e8217094a7dc3cce632 (diff)
downloadguile-600af2edd5094ae7f8565f447b63ff6bbd84653d.tar.gz
(lset=): Correction to pred call arg order, srfi spec is
(= e[i] e[i+1]), but had some calls the other way around.
-rw-r--r--srfi/srfi-1.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 53be755fa..498e6a69d 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -730,7 +730,7 @@
(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))
+ (every (lambda (el) (member el f (lambda (x y) (= y x)))) (car r))
(lp (car r) (cdr r)))))))
(define (lset-adjoin = list . rest)