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

fix display/write swap, use ~s for exn-messages

Browse Source 
svn: r13161
This commit is contained in:
Eli Barzilay 2009-01-16 05:49:16 +00:00
parent a76cdc248f
commit 99592959b8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/promise.ss
View File

@ -20,8 +20,9 @@
(cond [(reraise? p)
(let ([v (reraise-val p)])
(if (exn? v)
(fprintf port "#<promise!exn!~a>" (exn-message v))
(fprintf port (if write? "#<promise!~a>" "#<promise!~s>")
(fprintf port (if write? "#<promise!exn!~s>" "#<promise!exn!~a>")
(exn-message v))
(fprintf port (if write? "#<promise!~s>" "#<promise!~a>")
`(raise ,v))))]
[(running? p)
(let ([n (running-name p)])