From 600af2edd5094ae7f8565f447b63ff6bbd84653d Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Thu, 27 Jan 2005 23:11:36 +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 53be755fa..498e6a69d 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -730,7 +730,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)