From 96117cc86dcde01071e24db35feede0349711a3a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 1 Nov 2007 12:34:58 +0000 Subject: [PATCH] uses the remapping for determining named-let status now svn: r7607 --- collects/mzlib/pretty.ss | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss index a85f8dc5ce..21f63cce3b 100644 --- a/collects/mzlib/pretty.ss +++ b/collects/mzlib/pretty.ss @@ -985,7 +985,7 @@ (define (pp-let expr extra depth) (let* ((rest (cdr expr)) - (named? (and (pair? rest) (symbol? (car rest))))) + (named? (and (pair? rest) (symbol? (do-remap (car rest)))))) (pp-general expr extra named? pp-expr-list #f pp-expr depth))) (define (pp-begin expr extra depth) @@ -1001,7 +1001,7 @@ (define max-call-head-width 5) (define (style head) - (case (look-in-style-table head) + (case (look-in-style-table head) ((lambda λ define define-macro define-syntax syntax-rules shared @@ -1049,17 +1049,19 @@ ((printing-port-print-line pport) #f col width))) (define (look-in-style-table raw-head) - (let ([head - (cond - [((pretty-print-remap-stylable) raw-head) - => - values] - [else raw-head])]) + (let ([head (do-remap raw-head)]) (or (hash-table-get (pretty-print-style-table-hash (pretty-print-current-style-table)) head #f) head))) + + (define (do-remap raw-head) + (cond + [((pretty-print-remap-stylable) raw-head) + => + values] + [else raw-head])) (define (read-macro? l) (define (length1? l) (and (pair? l) (null? (cdr l))))