Fix name of channel operation in textual-input-port-channel.

And textual-output-port-channel.

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index 0e23763d33fe33b64102c67ad1dadf415f70c4f1..565faf51dd99fb3820794f064c5efd97dc476413 100644 (file)
--- a/src/runtime/port.scm
+++ b/src/runtime/port.scm
@@ -475,12 +475,12 @@ USA.
        #t)))
 
 (define (textual-input-port-channel port)
-  (let ((operation (textual-port-operation port 'input-port-channel)))
+  (let ((operation (textual-port-operation port 'input-channel)))
     (and operation
         (operation port))))
 
 (define (textual-output-port-channel port)
-  (let ((operation (textual-port-operation port 'output-port-channel)))
+  (let ((operation (textual-port-operation port 'output-channel)))
     (and operation
         (operation port))))
 \f