From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Jan 2017 03:36:50 +0000 (-0800)
Subject: The binary-XXX-port? procedures aren't public.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~167
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f3dcd111468825fc384bddb31fe026124deae7e4;p=mit-scheme.git

The binary-XXX-port? procedures aren't public.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index a8ff1a9d7..7c4406c62 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2424,9 +2424,6 @@ USA.
   (files "binary-port")
   (parent (runtime))
   (export ()
-	  binary-i/o-port?
-	  binary-input-port?
-	  binary-output-port?
 	  binary-port?
 	  get-output-bytevector
 	  open-input-bytevector
@@ -2451,10 +2448,13 @@ USA.
 	  make-non-channel-output-sink
 	  output-sink?)
   (export (runtime port)
+	  binary-i/o-port?
 	  binary-input-port-open?
 	  binary-input-port:buffer-contents
 	  binary-input-port:set-buffer-contents!
+	  binary-input-port?
 	  binary-output-port-open?
+	  binary-output-port?
 	  close-binary-input-port
 	  close-binary-output-port
 	  close-binary-port))