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

fixed PR 8374

Browse Source 
svn: r4794
This commit is contained in:
Robby Findler 2006-11-06 19:22:12 +00:00
parent 102543cf6f
commit 43e7135380
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/drscheme/private/debug.ss
View File

@ -350,7 +350,7 @@ profile todo:
[send-out [send-out
(λ (msg f) (λ (msg f)
(if (port-writes-special? (current-error-port)) (if (port-writes-special? (current-error-port))
(let ([snp (make-object string-snip% " in:")]) (let ([snp (make-object string-snip% msg)])
(f snp) (f snp)
(write-special snp (current-error-port))) (write-special snp (current-error-port)))
(display msg (current-error-port))))]) (display msg (current-error-port))))])