commit 902f2c146aa79796df39046f383ce95631a6a3a8 parent d75f99286b72d7677229d315e373d35a663e9ea9 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Mon, 11 Sep 2006 01:01:12 +0000 Improved pretty printing (define-values, define-syntaxes) svn: r4299 original commit: de95ebcde464619f3bf36f85b539156d4b5a441b Diffstat:
| M | collects/macro-debugger/syntax-browser/pretty-printer.ss | | | 9 | ++++++++- |
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/collects/macro-debugger/syntax-browser/pretty-printer.ss b/collects/macro-debugger/syntax-browser/pretty-printer.ss @@ -68,9 +68,13 @@ (let* ([ids identifier-list] [syms (map (lambda (x) (stx=>flat x)) 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 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 ([pretty-print-pre-print-hook pp-pre-hook] @@ -101,4 +105,7 @@ (recompute-tables) (super-new))) + (define extended-style-list + '((define-values . define) + (define-syntaxes . define-syntax))) )