From d4b55b57874770ebaf0bd0f79b91ff40a6d94b94 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 28 May 2011 07:00:13 +0000 Subject: * 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. --- src/algebra/net.spad.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/algebra/net.spad.pamphlet') 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 -- cgit v1.2.3