Macro stepper: fixed syntax-snip read-special

svn: r5543
2007-02-02 19:30:19 +00:00 · 2007-02-02 19:30:19 +00:00 · d426019579
commit d426019579
parent 432d5349eb
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)))
          ))