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

(lset=): Correction to pred call arg order, srfi spec is

Browse source 
(= e[i] e[i+1]), but had some calls the other way around.
This commit is contained in:
Kevin Ryde 2005-01-27 23:11:36 +00:00
parent 8447f463ba
commit 600af2edd5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-1.scm
View file

@ -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)