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

fix: Read did not set "Done" in the "unread" case

Browse Source
This commit is contained in:
ceriel 1987-06-16 09:04:27 +00:00
parent c79e062121
commit 9046645590
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,6 +26,7 @@ IMPLEMENTATION MODULE InOut ;
IF unread THEN IF unread THEN
unread := FALSE; unread := FALSE;
c := unreadch; c := unreadch;
Done := TRUE;
ELSE ELSE
WITH ibuf DO WITH ibuf DO
IF cnt <= maxcnt THEN IF cnt <= maxcnt THEN