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
RETURN;
END;
UnRead(ch);
REPEAT
Read(ch);
termCH := ch;

View file

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