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

2010-09-10 06:31:57 -06:00 · 2010-09-10 06:31:57 -06:00 · 00264b9cbc
commit 00264b9cbc
parent 3a5875857a
1 changed files with 3 additions and 1 deletions
--- a/collects/racket/private/pre-base.rkt
+++ b/collects/racket/private/pre-base.rkt
@ -27,7 +27,9 @@
           #f
           "not at top level"
           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)
    (make-keyword-procedure