From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Jan 2017 21:19:40 +0000 (-0800)
Subject: Add comment for return value of write-bytevector.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~92
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ab5a5d596bc1e585be5900db3a7a7ae15470903e;p=mit-scheme.git

Add comment for return value of write-bytevector.
---

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index be9c2f783..ad6ce1127 100644
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -444,6 +444,9 @@ USA.
 		(write)
 		n))))))
 
+;; Returns >0 if some bytes were successfully written.
+;; Returns 0 if unable to write any bytes.
+;; Returns #f if the write would block.
 (define (write-bytevector bytevector #!optional port start end)
   (let ((ob (check-output-port port 'write-bytevector))
 	(end