fix syntax error when #top-interaction is used without an open paren
This commit is contained in:
parent
3a5875857a
commit
00264b9cbc
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user