Macro stepper: fixed syntax-snip read-special

svn: r5543 original commit: d426019579731e329d13d2c8e773544c22e1838e
2007-02-02 19:30:19 +00:00 · 2007-02-02 19:30:19 +00:00 · d4b7882999
commit d4b7882999
parent 3f810108ff
1 changed files with 2 additions and 1 deletions
--- 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)))
          ))