From 6f16af82f2bea3e8be1fd8c692976225f53cbe89 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 1 Jul 2005 15:35:52 +0000
Subject: [PATCH] pretty-print bug for hash tables fixed

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

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 0d00e140e2..159a2532a9 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -668,9 +668,9 @@
 		  #f #f
 		  (lambda ()
 		    (out "#hash")
-		    (wr-lst (hash-table-map obj cons) #f depth))
-		  (parameterize ([print-hash-table #f])
-		    ((if display? orig-display orig-write) obj pport))))]
+		    (wr-lst (hash-table-map obj cons) #f depth)))
+		 (parameterize ([print-hash-table #f])
+		   ((if display? orig-display orig-write) obj pport)))]
 	    [(boolean? obj)
 	     (out (if obj "#t" "#f"))]
 	    [(number? obj)