changed order in LIST, ReadString from InOut still did not work right

This commit is contained in:
ceriel 1987-07-28 13:46:13 +00:00
parent 9e55f02c3b
commit 300623ac88
2 changed files with 2 additions and 1 deletions

View file

@ -316,6 +316,7 @@ IMPLEMENTATION MODULE InOut ;
IF NOT Done THEN IF NOT Done THEN
RETURN; RETURN;
END; END;
UnRead(ch);
REPEAT REPEAT
Read(ch); Read(ch);
termCH := ch; termCH := ch;

View file

@ -15,9 +15,9 @@ Conversion.mod
Semaphores.mod Semaphores.mod
random.mod random.mod
Strings.mod Strings.mod
Arguments.c
catch.c catch.c
Traps.mod Traps.mod
Arguments.c
LtoUset.e LtoUset.e
StrAss.c StrAss.c
absd.c absd.c