From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 25 Apr 2017 23:36:09 +0000 (-0700)
Subject: Add close procedure before output bytevectors' custom stuff.
X-Git-Tag: mit-scheme-pucked-9.2.12~153^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9b2f16e9e4763022e80e24eaec877c5bbc34ab5c;p=mit-scheme.git

Add close procedure before output bytevectors' custom stuff.
---

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index a77236313..2a7efac42 100644
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -25,7 +25,7 @@ USA.
 |#
 
 ;;;; Binary I/O ports
-;;; package: (runtime port)
+;;; package: (runtime binary-port)
 
 (declare (usual-integrations))
 
@@ -148,6 +148,7 @@ USA.
 	  (bytevector-copy! bytevector index bv bs be)
 	  (set! index index*)
 	  (fix:- be bs)))
+      (default-object)
       bytevector-output-port-tag
       (lambda ()
 	(bytevector-copy bytevector 0 index)))