Provide access to the channels in a binary port.

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index 40113adca4d20937410526f5c76ba52070bd6193..0c709420bbcaa2e97a4db2f3067fa27754866804 100644 (file)
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -59,6 +59,16 @@ USA.
     (and buffer
         (buffer-source/sink buffer))))
 
+(define (binary-port-input-channel port)
+  (let ((buffer (port-input-buffer port)))
+    (and buffer
+        (buffer-channel buffer))))
+
+(define (binary-port-output-channel port)
+  (let ((buffer (port-output-buffer port)))
+    (and buffer
+        (buffer-channel buffer))))
+
 (define (binary-input-port? object)
   (and (binary-port? object)
        (port-input-buffer object)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 787bcdbad72557babefd3fdfde5c7259379c93bf..b94da19afd43cd6551cec43aa137686bdb93a9ae 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2567,6 +2567,8 @@ USA.
          write-bytevector
          write-u8)
   (export (runtime)
+         binary-port-input-channel
+         binary-port-output-channel
          binary-port-sink
          binary-port-source
          input-source-channel