(list=): Correction to arguments passed to given elt=,

spec is (elt= e[i] e[i+1]) for lists i and i+1, previously the first
arg was always from list 0 not list i.

diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index d67b705..1004cd5 100644 (file)
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -318,11 +318,10 @@
             (and (elt= (car a) (car b))
                  (lp (cdr a) (cdr b)))))))
   (or (null? rest)
-      (let ((first (car rest)))
-       (let lp ((lists rest))
-         (or (null? lists)
-             (and (lists-equal first (car lists))
-                  (lp (cdr lists))))))))
+      (let lp ((lists rest))
+       (or (null? (cdr lists))
+           (and (lists-equal (car lists) (cadr lists))
+                (lp (cdr lists)))))))
 
 ;;; Selectors