commit 00b639c6112ce1214df01a8ebe0896a4721918f8 parent d23cb2435324f86d9a6870569e2665fc96fd88e5 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Thu, 29 Sep 2011 19:00:13 -0600 macro-stepper: fix reader abbreviations original commit: 8c806c184fcc15c67ee99b7f3636f22e92ed546e Diffstat:
| M | 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 @@ -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)))