From 5c402c25a191136336ad1dd7be88897793c99c60 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 30 Aug 2013 15:46:25 -0500 Subject: [PATCH] fix for abc7f9a873 --- pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt index 8892f0196e..9515509819 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt @@ -1233,7 +1233,7 @@ TODO (let ([oe (current-eval)]) (define (drracket-eval-handler sexp/syntax) (cond - [(do-dance) + [(and (do-dance) (syntax? sexp/syntax)) ;; we duplicate the 'expand-syntax-to-top-form' dance that eval-syntax ;; does here, so that we can put 'with-stack-checkpoint's in to limit ;; the amount of DrRacket code we see in stacktraces