From fc82492a99dda9f62cf0dd52cec1af365c6adb1f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 4 Sep 2013 09:41:55 -0500 Subject: [PATCH] fix bug in DrRacket --- pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt index 9515509819..e3cedbd52c 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/rep.rkt @@ -1233,7 +1233,9 @@ TODO (let ([oe (current-eval)]) (define (drracket-eval-handler sexp/syntax) (cond - [(and (do-dance) (syntax? sexp/syntax)) + [(and (do-dance) + (syntax? sexp/syntax) + (not (compiled-expression? (syntax-e 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