d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

The Get routine did not work right, fixed

Browse source
This commit is contained in:
ceriel 1988-03-08 11:28:00 +00:00
parent ea21b16846
commit 1a259744af
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/libm2/PascalIO.mod
View file

@ -126,6 +126,7 @@ IMPLEMENTATION MODULE PascalIO;
IF type # Preading THEN Error(Preading); END; IF type # Preading THEN Error(Preading); END;
IF NOT done THEN IF NOT done THEN
Get(InputText); Get(InputText);
done := TRUE;
END; END;
RETURN ch; RETURN ch;
END; END;
@ -145,7 +146,6 @@ IMPLEMENTATION MODULE PascalIO;
ELSE ELSE
Read(stream, ch, result); Read(stream, ch, result);
END; END;
done := TRUE;
END; END;
END Get; END Get;