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-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))
(if (null? ll)
(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) (cons (car ll) acc))))))))