From 63c03f40f92deefcadccd5188b907c07c905a959 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Aug 2006 09:22:36 +0000
Subject: [PATCH] fix #hasheq printing

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

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index bbd6fc8853..79200c3c3b 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -674,7 +674,9 @@
 		  obj pport #t
 		  #f #f
 		  (lambda ()
-		    (out "#hash")
+		    (out (if (hash-table? obj 'equal)
+                             "#hash"
+                             "#hasheq"))
 		    (wr-lst (hash-table-map obj cons) #f depth)))
 		 (parameterize ([print-hash-table #f])
 		   ((if display? orig-display orig-write) obj pport)))]
@@ -775,7 +777,9 @@
 			   (out "#")
 			   (pp-list (vector->list (struct->vector obj)) extra pp-expr #f depth)]
 			  [(hash-table? obj)
-			   (out "#hash")
+			   (out (if (hash-table? obj 'equal)
+                                    "#hash"
+                                    "#hasheq"))
 			   (pp-list (hash-table-map obj cons) extra pp-expr #f depth)]
 			  [(box? obj)
 			   (out "#&")