diff --git a/collects/macro-debugger/syntax-browser/syntax-snip.ss b/collects/macro-debugger/syntax-browser/syntax-snip.ss index 43c8681..2916230 100644 --- a/collects/macro-debugger/syntax-browser/syntax-snip.ss +++ b/collects/macro-debugger/syntax-browser/syntax-snip.ss @@ -84,7 +84,8 @@ ;; Produces 3D syntax to preserve eq-ness of syntax ;; #'#'stx would be lose identity when wrapped (define/public (read-special src line col pos) - #`((,(lambda () stx)))) + (with-syntax ([p (lambda () stx)]) + #'(p))) ))