diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-27 23:11:36 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-27 23:11:36 +0000 |
commit | 600af2edd5094ae7f8565f447b63ff6bbd84653d (patch) | |
tree | 8ff3a83dce906a3fd0a20362084f9675397fac62 /srfi/srfi-1.scm | |
parent | 8447f463ba72597621085e8217094a7dc3cce632 (diff) | |
download | guile-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.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r-- | srfi/srfi-1.scm | 2 |
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) |