From 032740261d831ab0a24816db630ffc923313256b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 21 Mar 2007 23:07:41 +0000
Subject: [PATCH] fixed a bug in new pretty-print-remap-stylable parameter
 handling

svn: r5810
---
 collects/mzlib/pretty.ss | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 8cbe22aa77..e99d8ebc7a 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -988,8 +988,7 @@
        (define max-call-head-width 5)
 
        (define (style head)
-	 (case (or (look-in-style-table head)
-		   head)
+	 (case (look-in-style-table head)
 	   ((lambda λ define define-macro define-syntax
 		    syntax-rules
 		    shared
@@ -1043,10 +1042,11 @@
               => 
               values]
              [else raw-head])])
-      (hash-table-get (pretty-print-style-table-hash
-                       (pretty-print-current-style-table))
-                      head
-                      #f)))
+      (or (hash-table-get (pretty-print-style-table-hash
+                           (pretty-print-current-style-table))
+                          head
+                          #f)
+          head)))
    
    (define (read-macro? l)
      (define (length1? l) (and (pair? l) (null? (cdr l))))