From 99dd2b98e1a362a1b12695f85e1ea9dfc58d479e Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 3 Nov 2009 01:05:22 +0900 Subject: [PATCH] reporting better error for unmatched syntax-rules patterns --- init.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/init.scm b/init.scm index a3b0030e..f286a48f 100644 --- a/init.scm +++ b/init.scm @@ -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)