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/interp/word.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/interp/word.boot')
-rw-r--r-- | src/interp/word.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/word.boot b/src/interp/word.boot index 40d01114..be576794 100644 --- a/src/interp/word.boot +++ b/src/interp/word.boot @@ -97,7 +97,7 @@ getListOfFunctionNames(fnames) == for fn in fnames repeat null IOSTATE(fn,'DIRECT,'_*) => 'iterate stream:= DEFIOSTREAM(['(MODE . INPUT),['FILE,fn,'DIRECT,'_*]],80,0) - while (not PLACEP (x:= readLine stream)) repeat + while (x:= readLine stream) ~= %nothing repeat (s := # x) < 26 => 'iterate res:= [subString(x,26),:res] SHUT stream |