godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ReadString did not skip leading spaces

Browse Source
This commit is contained in:
ceriel 1987-06-11 13:07:27 +00:00
parent 4ea59adb33
commit 2c84d1bc14
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lang/m2/libm2/InOut.mod
View File

@ -308,6 +308,10 @@ IMPLEMENTATION MODULE InOut ;
BEGIN BEGIN
i := 0; i := 0;
REPEAT
Read(ch);
UNTIL (ch # ' ') AND (ch # TAB);
UnRead(ch);
LOOP LOOP
Read(ch); Read(ch);
termCH := ch; termCH := ch;