Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-14 16:37:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing regression bug in dotted ellipsis syntax-rules patterns.

Browse source
This commit is contained in:
Alex Shinn 2013-01-29 21:53:39 +09:00
parent 55df642dab
commit 3afa5589a7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/init-7.scm
View file

@ -19,7 +19,7 @@
(define (procedure? x) (if (closure? x) #t (opcode? x))) (define (procedure? x) (if (closure? x) #t (opcode? x)))
(define (length ls) (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) (define (list . args) args)
@ -646,7 +646,7 @@
(_quote (rename 'syntax-quote)) (_apply (rename 'apply)) (_quote (rename 'syntax-quote)) (_apply (rename 'apply))
(_append (rename 'append)) (_map (rename 'map)) (_append (rename 'append)) (_map (rename 'map))
(_vector? (rename 'vector?)) (_list? (rename 'list?)) (_vector? (rename 'vector?)) (_list? (rename 'list?))
(_len (rename'len)) (_length (rename 'length)) (_len (rename'len)) (_length (rename 'length*))
(_- (rename '-)) (_>= (rename '>=)) (_error (rename 'error)) (_- (rename '-)) (_>= (rename '>=)) (_error (rename 'error))
(_ls (rename 'ls)) (_res (rename 'res)) (_i (rename 'i)) (_ls (rename 'ls)) (_res (rename 'res)) (_i (rename 'i))
(_reverse (rename 'reverse)) (_reverse (rename 'reverse))