aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-28 07:00:13 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-28 07:00:13 +0000
commitd4b55b57874770ebaf0bd0f79b91ff40a6d94b94 (patch)
tree1353d1fa1ca5adc163fa61ad8ce94018396a17be /src/algebra
parent414db62082f6e113d0898240887f53fc43d21ae7 (diff)
downloadopen-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')
-rw-r--r--src/algebra/net.spad.pamphlet2
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