From 196a6fdff3c879d8f479688dd4bf83ccf32a65ca Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 12 Dec 2005 16:55:36 +0000
Subject: [PATCH] transplant-output-port needs to return #f instead of 0 when
 failing to write bytes

svn: r1593
---
 collects/mzlib/private/port.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/private/port.ss b/collects/mzlib/private/port.ss
index 027b58d250..56bf26f2b8 100644
--- a/collects/mzlib/private/port.ss
+++ b/collects/mzlib/private/port.ss
@@ -60,7 +60,7 @@
 			   write-bytes-avail))
 		   s p start end)])
 	   (if (and (zero? v) (not (= start end)))
-	       (wrap-evt p (lambda (x) 0))
+	       (wrap-evt p (lambda (x) #f))
 	       v)))
        (lambda ()
 	 (when close?