summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-28 21:30:47 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-28 21:30:47 +0000
commita33931ae8d7fd12fa8ed33ab1d83705ca2a66a96 (patch)
tree33dc07286ecc537388c7663b3611d0fbc7549b2e /srfi/srfi-1.scm
parentb66ccb2693ac1bade141601442d36190f7704f52 (diff)
downloadguile-a33931ae8d7fd12fa8ed33ab1d83705ca2a66a96.tar.gz
(lset-adjoin): Actually use the given `=' procedure.
Test membership only on the given `list', not `acc', as per the spec.
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 498e6a69d..ae9160c80 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -737,7 +737,7 @@
(let lp ((l rest) (acc list))
(if (null? l)
acc
- (if (member (car l) acc)
+ (if (member (car l) list (lambda (x y) (= y x)))
(lp (cdr l) acc)
(lp (cdr l) (cons (car l) acc))))))