From 9b2f16e9e4763022e80e24eaec877c5bbc34ab5c Mon Sep 17 00:00:00 2001 From: Matt Birkholz 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