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 53bf50496ac241984b7389011dd45bfc4a8dc78a..b364642ce98db584505284d2ecbf053bf11a2a18 100644 (file)
--- 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 fbae99218980b9483880e863c36573fea15c0ee8..9ee61acf4f42e6d3980a0a4d71d0ab7e5d734b78 100644 (file)
--- 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)