This commit is contained in:
Robby Findler 2013-08-30 15:46:25 -05:00
parent 5784358332
commit 5c402c25a1

View File

@ -1233,7 +1233,7 @@ TODO
(let ([oe (current-eval)]) (let ([oe (current-eval)])
(define (drracket-eval-handler sexp/syntax) (define (drracket-eval-handler sexp/syntax)
(cond (cond
[(do-dance) [(and (do-dance) (syntax? sexp/syntax))
;; we duplicate the 'expand-syntax-to-top-form' dance that eval-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 ;; does here, so that we can put 'with-stack-checkpoint's in to limit
;; the amount of DrRacket code we see in stacktraces ;; the amount of DrRacket code we see in stacktraces