From ab5a5d596bc1e585be5900db3a7a7ae15470903e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 24 Jan 2017 13:19:40 -0800 Subject: [PATCH] Add comment for return value of write-bytevector. --- src/runtime/binary-port.scm | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.25.1