macro-stepper: fix reader abbreviations

original commit: 8c806c184fcc15c67ee99b7f3636f22e92ed546e
2011-09-29 19:00:13 -06:00 · 2011-09-29 19:00:13 -06:00 · 00b639c611
commit 00b639c611
parent d23cb24353
1 changed files with 4 additions and 1 deletions
--- 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)))