www

commit 898d3d554bbfd763efeaa1e38d5bb200b8af672d
parent df335db3108d5c659779fb773f1054ce69a394e5
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Sat, 21 Apr 2007 17:23:38 +0000

Macro stepper: fixed quasisyntax pretty-print bug

svn: r6010

original commit: e36f77a7489383efebfffb6f31db793a8a9718ac

Diffstat:
M
collects/macro-debugger/syntax-browser/pretty-helper.ss
 | 
8
+++++---

1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.ss b/collects/macro-debugger/syntax-browser/pretty-helper.ss
@@ -124,9 +124,7 @@
          (let ([kw (car stx-list)]
                [expr (cadr stx-list)])
            (and (identifier? kw)
-                (memq (syntax-e kw)
-                      '(quote quasiquote unquote unquote-splicing
-                              syntax quasisyntax unsyntax unsyntax-splicing))
+                (memq (syntax-e kw) special-expression-keywords)
                 (bound-identifier=? kw (datum->syntax-object stx (syntax-e kw)))
                 (andmap (lambda (f) (equal? (f stx) (f kw)))
                         (list syntax-source
@@ -138,6 +136,10 @@
                 (cons (syntax-e kw)
                       (list expr))))))
 
+  (define special-expression-keywords
+    '(quote quasiquote unquote unquote-splicing syntax))
+  ;; FIXME: quasisyntax unsyntax unsyntax-splicing
+
   (define (unintern sym)
     (string->uninterned-symbol (symbol->string sym)))