mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(lset-union): Call `=' procedure with args in the order specified by the SRFI.

Browse source
This commit is contained in:
Kevin Ryde 2005-03-13 00:40:55 +00:00
parent ba78f311d5
commit 6e09703fa0
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

@ -754,7 +754,7 @@
(let lp1 ((ll (car l)) (acc acc)) (let lp1 ((ll (car l)) (acc acc))
(if (null? ll) (if (null? ll)
(lp0 (cdr l) acc) (lp0 (cdr l) acc)
(if (member (car ll) acc =) (if (member (car ll) acc (lambda (x y) (= y x)))
(lp1 (cdr ll) acc) (lp1 (cdr ll) acc)
(lp1 (cdr ll) (cons (car ll) acc)))))))) (lp1 (cdr ll) (cons (car ll) acc))))))))