Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

reporting better error for unmatched syntax-rules patterns

Browse source
This commit is contained in:
Alex Shinn 2009-11-03 01:05:22 +09:00
parent c1e8606c01
commit 99dd2b98e1
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
init.scm
View file

@ -564,6 +564,7 @@
(_append (rename 'append)) (_map (rename 'map)) (_append (rename 'append)) (_map (rename 'map))
(_vector? (rename 'vector?)) (_list? (rename 'list?)) (_vector? (rename 'vector?)) (_list? (rename 'list?))
(_lp (rename 'lp)) (_reverse (rename 'reverse)) (_lp (rename 'lp)) (_reverse (rename 'reverse))
(_error (rename 'error))
(_vector->list (rename 'vector->list)) (_vector->list (rename 'vector->list))
(_list->vector (rename 'list->vector))) (_list->vector (rename 'list->vector)))
(define (next-v) (define (next-v)
@ -718,7 +719,7 @@
(map (map
(lambda (clause) (expand-pattern (car clause) (cadr clause))) (lambda (clause) (expand-pattern (car clause) (cadr clause)))
forms) forms)
(list (list 'error "no expansion")))))))))) (list (list _error "no expansion for" _expr))))))))))
(define *config-env* #f) (define *config-env* #f)