godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 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 d1283aed97
commit 5adc47ac3a
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;