From 020807ac06f3447f7c74ee1650f8c1a7ef24c7fe Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 16 Nov 2008 20:01:24 -0500
Subject: [PATCH] - pretty-printing hash tables revealed internal structures,
 fixed.

---
 scheme/ikarus.hash-tables.ss | 3 +++
 scheme/ikarus.writer.ss      | 1 -
 scheme/last-revision         | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.hash-tables.ss b/scheme/ikarus.hash-tables.ss
index 84c6ce1..01f6270 100644
--- a/scheme/ikarus.hash-tables.ss
+++ b/scheme/ikarus.hash-tables.ss
@@ -528,4 +528,7 @@
          (number-hash (real-part x))
          (number-hash (imag-part x)))]))
 
+  (set-rtd-printer! (type-descriptor hasht)
+    (lambda (x p wr) 
+      (display "#<hashtable>" p)))
 )
diff --git a/scheme/ikarus.writer.ss b/scheme/ikarus.writer.ss
index e087f47..331c002 100644
--- a/scheme/ikarus.writer.ss
+++ b/scheme/ikarus.writer.ss
@@ -619,7 +619,6 @@
       [(eq? x (void)) (write-char* "#<void>" p) i]
       [(eof-object? x) (write-char* "#!eof" p) i]
       [(bwp-object? x) (write-char* "#!bwp" p) i]
-      [(hashtable? x) (write-char* "#<hashtable>" p) i]
       [(transcoder? x) (write-char* "#<transcoder>" p) i]
       [(struct? x) (write-shared x p m h i write-struct)]
       [(code? x) (write-char* "#<code>" p) i]
diff --git a/scheme/last-revision b/scheme/last-revision
index e41cd7a..cc3f6fb 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1685
+1686