diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-28 07:00:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-28 07:00:13 +0000 |
| commit | d4b55b57874770ebaf0bd0f79b91ff40a6d94b94 (patch) | |
| tree | 1353d1fa1ca5adc163fa61ad8ce94018396a17be /src/boot/includer.boot | |
| parent | 414db62082f6e113d0898240887f53fc43d21ae7 (diff) | |
| download | open-axiom-d4b55b57874770ebaf0bd0f79b91ff40a6d94b94.tar.gz | |
* lisp/core.lisp.in: Define and export readLine and readbyte.
* interp/sys-utility.boot (readByteFromFile): Remove.
* boot/tokens.boot: Don't rename readLine and readByte.
* boot/includer.boot (shoeReadLine): Remove.
(bRgen1): Adjust. Use resdLine.
* algebra/net.spad.pamphlet (InputBinaryFile): Use readByte from
the runtime system.
Diffstat (limited to 'src/boot/includer.boot')
| -rw-r--r-- | src/boot/includer.boot | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/boot/includer.boot b/src/boot/includer.boot index e286d843..a878844d 100644 --- a/src/boot/includer.boot +++ b/src/boot/includer.boot @@ -77,10 +77,6 @@ shoeReadLispString(s,n) == n >= l => nil readLispFromString strconc('"(", subString(s,n,l-n) ,'")") --- read a line from stream -shoeReadLine stream == - readLine(stream, nil, nil) - -- write LINE to standard terminal I/O. shoeConsole line == writeLine(line, _*TERMINAL_-IO_*) @@ -174,7 +170,8 @@ bRgen s == bDelay(function bRgen1,[s]) bRgen1 s == - a := shoeReadLine s => [a,:bRgen s] + a := readLine s + a ~= %nothing => [a,:bRgen s] ["nullstream"] bIgen n == |