suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

macro-stepper: fix reader abbreviations

Browse Source
This commit is contained in:
Ryan Culpepper 2011-09-29 19:00:13 -06:00
parent a0805f9b18
commit 8c806c184f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/macro-debugger/syntax-browser/pretty-printer.rkt
View File

@ -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)))