From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 May 2018 04:58:35 +0000 (-0700)
Subject: Implement tty-error-channel and export to console I/O.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~69
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74c1b46c4d586e814d14dbaf078989df2d8f9c25;p=mit-scheme.git

Implement tty-error-channel and export to console I/O.
---

diff --git a/src/runtime/primitive-io.scm b/src/runtime/primitive-io.scm
index 53bf50496..b364642ce 100644
--- a/src/runtime/primitive-io.scm
+++ b/src/runtime/primitive-io.scm
@@ -359,6 +359,9 @@ USA.
 (define (tty-output-channel)
   (make-channel ((ucode-primitive tty-output-channel 0))))
 
+(define (tty-error-channel)
+  (make-channel ((ucode-primitive tty-error-channel 0))))
+
 (define (terminal-get-state channel)
   ((ucode-primitive terminal-get-state 1) (channel-descriptor channel)))
 
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index fbae99218..9ee61acf4 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1547,9 +1547,6 @@ USA.
 (define-package (runtime console-i/o-port)
   (files "console-io")
   (parent (runtime))
-  (import (runtime primitive-io)
-	  tty-input-channel
-	  tty-output-channel)
   (export ()
 	  console-i/o-port
 	  console-i/o-port?)
@@ -3633,6 +3630,10 @@ USA.
 	  test-for-io-on-channel
 	  test-for-io-on-descriptor
 	  with-channel-blocking)
+  (export (runtime console-i/o-port)
+	  tty-input-channel
+	  tty-output-channel
+	  tty-error-channel)
   (export (runtime emacs-interface)
 	  channel-descriptor)
   (export (runtime load)