summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-03-13 00:40:55 +0000
committerKevin Ryde <user42@zip.com.au>2005-03-13 00:40:55 +0000
commit6e09703fa059111371094db562b66f040982f22b (patch)
treee068badd2470375de05642ef70ff9be337478b24 /srfi/srfi-1.scm
parentba78f311d5f111eef7e2e571bf45d0077cc43dab (diff)
downloadguile-6e09703fa059111371094db562b66f040982f22b.tar.gz
(lset-union): Call `=' procedure with args in the order specified by the SRFI.
Diffstat (limited to 'srfi/srfi-1.scm')
-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 21cad7431..11ec3c2f2 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -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))))))))