From 31acb210935c4ef17d1ada8913e311eece9dfefc Mon Sep 17 00:00:00 2001 From: stibear Date: Sat, 28 Jun 2014 11:48:30 +0900 Subject: [PATCH] rewrite an unavailable symbol into an available one --- piclib/srfi/43.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/piclib/srfi/43.scm b/piclib/srfi/43.scm index a30757e6..88ebc083 100644 --- a/piclib/srfi/43.scm +++ b/piclib/srfi/43.scm @@ -50,7 +50,7 @@ ; for the symmetry, this should be rather 'vector=?' than 'vector='. (define (vector= elt=? . vects) - (letrec ((2vector= + (letrec ((vector2= (lambda (v1 v2) (let ((ln1 (vector-length v1))) (and (= ln1 (vector-length v2)) @@ -67,7 +67,7 @@ (others (cdr others))) (if (eq? vect1 vect2) (rec1 vect1 others) - (and (2vector= vect1 vect2) + (and (vector2= vect1 vect2) (rec1 vect2 others)))))))))