From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 24 Nov 2009 02:23:35 +0000 (-0800)
Subject: Export fast input and output operations.
X-Git-Tag: 20100708-Gtk~231
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=98739193a126d4df6520285466b9b20d56ff9d5b;p=mit-scheme.git

Export fast input and output operations.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 7771d2ccf..9e306073e 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2111,10 +2111,16 @@ USA.
   (parent (runtime))
   (export ()
 	  (discard-char read-char)
+	  (%discard-char %read-char)
+	  (input-port/%discard-char input-port/%read-char)
 	  (input-port/discard-char input-port/read-char)
+	  %read-char
+	  %peek-char
 	  char-ready?
 	  eof-object
 	  eof-object?
+	  input-port/%read-char
+	  input-port/%peek-char
 	  input-port/char-ready?
 	  input-port/discard-chars
 	  input-port/eof?
@@ -2141,6 +2147,7 @@ USA.
   (files "output")
   (parent (runtime))
   (export ()
+	  %write-char
 	  beep
 	  call-with-truncated-output-port
 	  clear
@@ -2148,6 +2155,8 @@ USA.
 	  flush-output
 	  fresh-line
 	  newline
+	  output-port/%write-char
+	  output-port/%discretionary-flush
 	  output-port/bytes-written
 	  output-port/column
 	  output-port/discretionary-flush