From 898d3d554bbfd763efeaa1e38d5bb200b8af672d Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 21 Apr 2007 17:23:38 +0000 Subject: [PATCH] Macro stepper: fixed quasisyntax pretty-print bug svn: r6010 original commit: e36f77a7489383efebfffb6f31db793a8a9718ac --- 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 index e819e2f..b214466 100644 --- 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)))