Modified the writer so that it checks for hash tables before
records. Now hash tables print as #<hash-table> instead of #["hash-table" junk].
This commit is contained in:
parent
ab6c87b71f
commit
7ecb397ec7
BIN
lib/ikarus.boot
BIN
lib/ikarus.boot
Binary file not shown.
|
@ -303,6 +303,9 @@
|
||||||
[(bwp-object? x)
|
[(bwp-object? x)
|
||||||
(write-char* "#!bwp" p)
|
(write-char* "#!bwp" p)
|
||||||
i]
|
i]
|
||||||
|
[(hash-table? x)
|
||||||
|
(write-char* "#<hash-table>" p)
|
||||||
|
i]
|
||||||
[(record? x)
|
[(record? x)
|
||||||
(let ([printer (record-printer x)])
|
(let ([printer (record-printer x)])
|
||||||
(if (procedure? printer)
|
(if (procedure? printer)
|
||||||
|
@ -310,9 +313,6 @@
|
||||||
(write-shareable x p m h i write-record)))]
|
(write-shareable x p m h i write-record)))]
|
||||||
[(code? x)
|
[(code? x)
|
||||||
(write-char* "#<code>" p)]
|
(write-char* "#<code>" p)]
|
||||||
[(hash-table? x)
|
|
||||||
(write-char* "#<hash-table>" p)
|
|
||||||
i]
|
|
||||||
[($unbound-object? x)
|
[($unbound-object? x)
|
||||||
(write-char* "#<unbound-object>" p)
|
(write-char* "#<unbound-object>" p)
|
||||||
i]
|
i]
|
||||||
|
|
Loading…
Reference in New Issue