From de95ebcde464619f3bf36f85b539156d4b5a441b Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 11 Sep 2006 01:01:12 +0000 Subject: [PATCH] Improved pretty printing (define-values, define-syntaxes) svn: r4299 --- 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 index 2f0ecebff9..efd163284f 100644 --- 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))) )