From 9b2f16e9e4763022e80e24eaec877c5bbc34ab5c Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 25 Apr 2017 16:36:09 -0700
Subject: [PATCH] Add close procedure before output bytevectors' custom stuff.
---
src/runtime/binary-port.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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)))
--
2.25.1