Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +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))
(_vector? (rename 'vector?)) (_list? (rename 'list?))
(_lp (rename 'lp)) (_reverse (rename 'reverse))
(_error (rename 'error))
(_vector->list (rename 'vector->list))
(_list->vector (rename 'list->vector)))
(define (next-v)
@ -718,7 +719,7 @@
(map
(lambda (clause) (expand-pattern (car clause) (cadr clause)))
forms)
(list (list 'error "no expansion"))))))))))
(list (list _error "no expansion for" _expr))))))))))
(define *config-env* #f)