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

pretty-print bug for hash tables fixed

Browse Source 
svn: r290
This commit is contained in:
Matthew Flatt 2005-07-01 15:35:52 +00:00
parent 322b1b312a
commit 6f16af82f2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/pretty.ss
View File

@ -668,9 +668,9 @@
#f #f #f #f
(lambda () (lambda ()
(out "#hash") (out "#hash")
(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)))]
[(boolean? obj) [(boolean? obj)
(out (if obj "#t" "#f"))] (out (if obj "#t" "#f"))]
[(number? obj) [(number? obj)