summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
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))))))))