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

.

Browse Source 
original commit: ce57232bce02a500b1f27a9972960df4d9c88f4d
This commit is contained in:
Robby Findler 2005-05-11 21:18:47 +00:00
parent c7f2b89158
commit 4290af69a6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/pretty.ss
View File

@ -656,7 +656,7 @@
#f #f
(lambda ()
(out "#")
(wr-lst (vector->list (struct->vector obj)) #f (sub1 depth))))
(wr-lst (vector->list (struct->vector obj)) #f (dsub1 depth))))
(parameterize ([print-struct #f])
((if display? orig-display orig-write) obj pport)))]
[(hash-table? obj)