(lset-adjoin): Actually use the given `=' procedure.

Test membership only on the given `list', not `acc', as per the spec.

diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 498e6a6..ae9160c 100644 (file)
--- 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))))))