From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Jan 2017 08:50:19 +0000 (-0800)
Subject: Fix bug: get-output-bytevector must flush the buffer.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~132
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a61999c0e2bfa97531803baa9924b9043d77b4df;p=mit-scheme.git

Fix bug: get-output-bytevector must flush the buffer.

Actually this is kind of a bug: output to bytevectors shouldn't be buffered at
all.
---

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index f422e9304..01836ffe7 100644
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -160,6 +160,7 @@ USA.
 
 (define (get-output-bytevector port)
   (guarantee bytevector-output-port? port 'get-output-bytevector)
+  (flush-binary-output-port port)
   ((output-sink-custom-ref (buffer-source/sink (port-output-buffer port)) 1)))
 
 (define (bytevector-output-port? object)