diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-28 21:30:47 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-28 21:30:47 +0000 |
commit | a33931ae8d7fd12fa8ed33ab1d83705ca2a66a96 (patch) | |
tree | 33dc07286ecc537388c7663b3611d0fbc7549b2e /srfi/srfi-1.scm | |
parent | b66ccb2693ac1bade141601442d36190f7704f52 (diff) | |
download | guile-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.scm | 2 |
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)))))) |