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 "#" 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* "#" p) i] [(eof-object? x) (write-char* "#!eof" p) i] [(bwp-object? x) (write-char* "#!bwp" p) i] - [(hashtable? x) (write-char* "#" p) i] [(transcoder? x) (write-char* "#" p) i] [(struct? x) (write-shared x p m h i write-struct)] [(code? x) (write-char* "#" 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