From fa623cae87e25a6f4c7352d58dde5c29f65b46e4 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 12 Jan 2017 15:07:10 -0700 Subject: [PATCH] Fix name of channel operation in textual-input-port-channel. And textual-output-port-channel. --- src/runtime/port.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.25.1