fix flush for `make-pipe-with-specials'

Closes PR 12659 original commit: 0cfb3f1d396bb3d7bc817494b937063f5e8782ad
2012-03-29 14:19:23 -04:00 · 2012-03-29 14:19:23 -04:00 · 29a27fd9cd
commit 29a27fd9cd
parent 0cb4ef4c3e
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/port.rkt
+++ b/collects/mzlib/port.rkt
@ -710,7 +710,7 @@
         ;; write
         (lambda (str start end buffer? w/break?)
           (if (= start end)
-             #t
+             0
             (begin
               (resume-mgr)
               (call-with-semaphore