fix for abc7f9a873
This commit is contained in:
parent
5784358332
commit
5c402c25a1
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user