summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-02-03 23:18:59 +0000
committerKevin Ryde <user42@zip.com.au>2005-02-03 23:18:59 +0000
commit1bc8745f9baa3ab4094920bef482bf7648ecd0c3 (patch)
tree4d9300292ba66b782c81e36bfe5d3268bfa2e9f9 /srfi/srfi-1.scm
parent9b60a7c948fb05135c363b5ea7effcaa917facff (diff)
downloadguile-1bc8745f9baa3ab4094920bef482bf7648ecd0c3.tar.gz
(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.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm9
1 files changed, 4 insertions, 5 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index d67b70520..1004cd51e 100644
--- 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