From d4b7882999f2c34c1a0843d29754f2d083dc7676 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 2 Feb 2007 19:30:19 +0000 Subject: [PATCH] Macro stepper: fixed syntax-snip read-special svn: r5543 original commit: d426019579731e329d13d2c8e773544c22e1838e --- 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 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))) ))