From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 12 Jan 2017 22:07:10 +0000 (-0700)
Subject: Fix name of channel operation in textual-input-port-channel.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~136^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa623cae87e25a6f4c7352d58dde5c29f65b46e4;p=mit-scheme.git

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 0e23763d3..565faf51d 100644
--- 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))))