diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-02-03 23:18:59 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-02-03 23:18:59 +0000 |
commit | 1bc8745f9baa3ab4094920bef482bf7648ecd0c3 (patch) | |
tree | 4d9300292ba66b782c81e36bfe5d3268bfa2e9f9 /srfi/srfi-1.scm | |
parent | 9b60a7c948fb05135c363b5ea7effcaa917facff (diff) | |
download | guile-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.scm | 9 |
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 |