From d5fd638ca5390a350787ae991dfc619aab30cde1 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Thu, 27 Jan 2005 23:12:26 +0000
Subject: [PATCH] (lset=): Correction to pred call arg order, srfi spec is (=
 e[i] e[i+1]), but had some calls the other way around.

---
 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 fe1396098..a3e1b762d 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -967,7 +967,7 @@
     (let lp ((f (car rest)) (r (cdr rest)))
       (or (null? r)
 	  (and (every (lambda (el) (member el (car r) =)) f)
-	       (every (lambda (el) (member el f =)) (car r))
+	       (every (lambda (el) (member el f (lambda (x y) (= y x)))) (car r))
 	       (lp (car r) (cdr r)))))))
 
 (define (lset-adjoin = list . rest)