fix syntax error when #top-interaction is used without an open paren

This commit is contained in:
Matthew Flatt 2010-09-10 06:31:57 -06:00
parent 3a5875857a
commit 00264b9cbc

View File

@ -27,7 +27,9 @@
#f #f
"not at top level" "not at top level"
stx)) stx))
(datum->syntax stx (cdr (syntax-e stx)) stx stx))) (if (symbol? (syntax-e stx))
(raise-syntax-error #f "bad syntax" stx)
(datum->syntax stx (cdr (syntax-e stx)) stx stx))))
(define-values (new-apply-proc) (define-values (new-apply-proc)
(make-keyword-procedure (make-keyword-procedure