Fixing bug in "no expansion" error handling for syntax-rules.

This commit is contained in:
Alex Shinn 2012-03-07 07:05:18 +09:00
parent 5a803b2411
commit bbe56ad069

View file

@ -815,10 +815,11 @@
(map (map
(lambda (clause) (expand-pattern (car clause) (cadr clause))) (lambda (clause) (expand-pattern (car clause) (cadr clause)))
forms) forms)
(list _cons (list
(list _error "no expansion for" (list _cons
(list (rename 'strip-syntactic-closures) _expr)) (list _error "no expansion for"
#f)))))))))) (list (rename 'strip-syntactic-closures) _expr))
#f)))))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; additional syntax ;; additional syntax