From a33931ae8d7fd12fa8ed33ab1d83705ca2a66a96 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 28 Jan 2005 21:30:47 +0000
Subject: [PATCH] (lset-adjoin): Actually use the given `=' procedure. Test
 membership only on the given `list', not `acc', as per the spec.

---
 srfi/srfi-1.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))))