conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #155 from stibear/srfi43 

revise (srfi 43)
This commit is contained in:
Yuichi Nishiwaki 2014-06-28 12:18:47 +09:00
parent 706a3a4965 31acb21093
commit 2b28a7fa47
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/srfi/43.scm
View File

@ -50,7 +50,7 @@
; for the symmetry, this should be rather 'vector=?' than 'vector='. ; for the symmetry, this should be rather 'vector=?' than 'vector='.
(define (vector= elt=? . vects) (define (vector= elt=? . vects)
(letrec ((2vector= (letrec ((vector2=
(lambda (v1 v2) (lambda (v1 v2)
(let ((ln1 (vector-length v1))) (let ((ln1 (vector-length v1)))
(and (= ln1 (vector-length v2)) (and (= ln1 (vector-length v2))
@ -67,7 +67,7 @@
(others (cdr others))) (others (cdr others)))
(if (eq? vect1 vect2) (if (eq? vect1 vect2)
(rec1 vect1 others) (rec1 vect1 others)
(and (2vector= vect1 vect2) (and (vector2= vect1 vect2)
(rec1 vect2 others))))))))) (rec1 vect2 others)))))))))