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

Improved pretty printing (define-values, define-syntaxes)

Browse Source 
svn: r4299

original commit: de95ebcde464619f3bf36f85b539156d4b5a441b
This commit is contained in:
Ryan Culpepper 2006-09-11 01:01:12 +00:00
parent d75f99286b
commit 902f2c146a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/macro-debugger/syntax-browser/pretty-printer.ss
View File

@ -68,9 +68,13 @@
(let* ([ids identifier-list] (let* ([ids identifier-list]
[syms (map (lambda (x) (stx=>flat x)) ids)] [syms (map (lambda (x) (stx=>flat x)) ids)]
[like-syms (map syntax-e ids)]) [like-syms (map syntax-e ids)])
(pretty-print-extend-style-table (pretty-print-current-style-table) (pretty-print-extend-style-table (pp-better-style-table)
syms syms
like-syms))) like-syms)))
(define (pp-better-style-table)
(pretty-print-extend-style-table (pretty-print-current-style-table)
(map car extended-style-list)
(map cdr extended-style-list)))
(parameterize (parameterize
([pretty-print-pre-print-hook pp-pre-hook] ([pretty-print-pre-print-hook pp-pre-hook]
@ -101,4 +105,7 @@
(recompute-tables) (recompute-tables)
(super-new))) (super-new)))
(define extended-style-list
'((define-values . define)
(define-syntaxes . define-syntax)))
) )