projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b3fad66
)
Add comment for return value of write-bytevector.
author
Chris Hanson
<org/chris-hanson/cph>
Tue, 24 Jan 2017 21:19:40 +0000
(13:19 -0800)
committer
Chris Hanson
<org/chris-hanson/cph>
Tue, 24 Jan 2017 21:19:40 +0000
(13:19 -0800)
src/runtime/binary-port.scm
patch
|
blob
|
history
diff --git
a/src/runtime/binary-port.scm
b/src/runtime/binary-port.scm
index be9c2f783c1468c500ed6ab31ddb43e113167d74..ad6ce1127ef387bc7c974988c577f5eef22f91d6 100644
(file)
--- a/
src/runtime/binary-port.scm
+++ b/
src/runtime/binary-port.scm
@@
-444,6
+444,9
@@
USA.
(write)
n))))))
\f
+;; 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