From 00264b9cbcf83b556ec7f24e465804de746c96c2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 10 Sep 2010 06:31:57 -0600 Subject: [PATCH] fix syntax error when #top-interaction is used without an open paren --- collects/racket/private/pre-base.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/racket/private/pre-base.rkt b/collects/racket/private/pre-base.rkt index c421bf4d9b..726dbebe9c 100644 --- 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