From 3afa5589a71538203741910fd1e1c9e6e8087540 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 29 Jan 2013 21:53:39 +0900 Subject: [PATCH] Fixing regression bug in dotted ellipsis syntax-rules patterns. --- lib/init-7.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 428565a8..9b7616fb 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -19,7 +19,7 @@ (define (procedure? x) (if (closure? x) #t (opcode? x))) (define (length ls) - (if (list? ls) (length* ls) (error "not a list" ls))) + (if (list? ls) (length* ls) (error "length: not a list" ls))) (define (list . args) args) @@ -646,7 +646,7 @@ (_quote (rename 'syntax-quote)) (_apply (rename 'apply)) (_append (rename 'append)) (_map (rename 'map)) (_vector? (rename 'vector?)) (_list? (rename 'list?)) - (_len (rename'len)) (_length (rename 'length)) + (_len (rename'len)) (_length (rename 'length*)) (_- (rename '-)) (_>= (rename '>=)) (_error (rename 'error)) (_ls (rename 'ls)) (_res (rename 'res)) (_i (rename 'i)) (_reverse (rename 'reverse))