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

transplant-output-port needs to return #f instead of 0 when failing to write bytes

Browse Source 
svn: r1593
This commit is contained in:
Matthew Flatt 2005-12-12 16:55:36 +00:00
parent f080b36c9a
commit 196a6fdff3
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/private/port.ss
View File

@ -60,7 +60,7 @@
write-bytes-avail)) write-bytes-avail))
s p start end)]) s p start end)])
(if (and (zero? v) (not (= start end))) (if (and (zero? v) (not (= start end)))
(wrap-evt p (lambda (x) 0)) (wrap-evt p (lambda (x) #f))
v))) v)))
(lambda () (lambda ()
(when close? (when close?