From 98739193a126d4df6520285466b9b20d56ff9d5b Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 23 Nov 2009 18:23:35 -0800 Subject: [PATCH] Export fast input and output operations. --- src/runtime/runtime.pkg | 9 +++++++++ 1 file changed, 9 insertions(+) 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 -- 2.25.1