fix bug in DrRacket

2013-09-04 09:41:55 -05:00 · 2013-09-04 09:41:55 -05:00 · fc82492a99
commit fc82492a99
parent 9c48cfcaf6
1 changed files with 3 additions and 1 deletions
--- 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