www

commit d4b7882999f2c34c1a0843d29754f2d083dc7676
parent 3f810108ff1c0c13545d0103b0f94d07cf293099
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri,  2 Feb 2007 19:30:19 +0000

Macro stepper: fixed syntax-snip read-special

svn: r5543

original commit: d426019579731e329d13d2c8e773544c22e1838e

Diffstat:
M
collects/macro-debugger/syntax-browser/syntax-snip.ss
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git 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)))
           ))