- pretty-printing hash tables revealed internal structures, fixed.

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)))
 )

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]

scheme/last-revision

@@ -1 +1 @@
-1685
+1686