From 00b639c6112ce1214df01a8ebe0896a4721918f8 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 29 Sep 2011 19:00:13 -0600 Subject: [PATCH] macro-stepper: fix reader abbreviations original commit: 8c806c184fcc15c67ee99b7f3636f22e92ed546e --- collects/macro-debugger/syntax-browser/pretty-printer.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/macro-debugger/syntax-browser/pretty-printer.rkt b/collects/macro-debugger/syntax-browser/pretty-printer.rkt index 62e965a..e5467f6 100644 --- a/collects/macro-debugger/syntax-browser/pretty-printer.rkt +++ b/collects/macro-debugger/syntax-browser/pretty-printer.rkt @@ -70,7 +70,10 @@ [else #f])) (define (pp-remap-stylable obj) - (and (id-syntax-dummy? obj) (id-syntax-dummy-remap obj))) + (and (id-syntax-dummy? obj) + (let ([remap (id-syntax-dummy-remap obj)]) + (and (not (memq remap special-expression-keywords)) + remap)))) (define (pp-better-style-table styles) (define style-list (for/list ([(k v) (in-hash styles)]) (cons k v)))