suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix #hasheq printing

Browse Source 
svn: r4066

original commit: 63c03f40f92deefcadccd5188b907c07c905a959
This commit is contained in:
Matthew Flatt 2006-08-15 09:22:36 +00:00
parent 9f7172110e
commit dced16e4b4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/pretty.ss
View File

@ -674,7 +674,9 @@
obj pport #t obj pport #t
#f #f #f #f
(lambda () (lambda ()
(out "#hash") (out (if (hash-table? obj 'equal)
"#hash"
"#hasheq"))
(wr-lst (hash-table-map obj cons) #f depth))) (wr-lst (hash-table-map obj cons) #f depth)))
(parameterize ([print-hash-table #f]) (parameterize ([print-hash-table #f])
((if display? orig-display orig-write) obj pport)))] ((if display? orig-display orig-write) obj pport)))]
@ -775,7 +777,9 @@
(out "#") (out "#")
(pp-list (vector->list (struct->vector obj)) extra pp-expr #f depth)] (pp-list (vector->list (struct->vector obj)) extra pp-expr #f depth)]
[(hash-table? obj) [(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)] (pp-list (hash-table-map obj cons) extra pp-expr #f depth)]
[(box? obj) [(box? obj)
(out "#&") (out "#&")