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/algebra/net.spad.pamphlet | |
| 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/algebra/net.spad.pamphlet')
| -rw-r--r-- | src/algebra/net.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/net.spad.pamphlet b/src/algebra/net.spad.pamphlet index 6e9b3139..29b5e704 100644 --- a/src/algebra/net.spad.pamphlet +++ b/src/algebra/net.spad.pamphlet @@ -209,7 +209,7 @@ InputBinaryFile(): Public == Private where not null? rep(ifile).stream readByte! ifile == isOpen? ifile => - b: Maybe Byte := readByteFromFile(rep(ifile).stream)$Lisp + b: Maybe Byte := readByte(rep(ifile).stream)$Lisp if b case nothing then rep(ifile).eof := true b |