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

1987-06-16 09:04:27 +00:00 · 1987-06-16 09:04:27 +00:00 · 9046645590
commit 9046645590
parent c79e062121
1 changed files with 1 additions and 0 deletions
--- a/lang/m2/libm2/InOut.mod
+++ b/lang/m2/libm2/InOut.mod
@ -26,6 +26,7 @@ IMPLEMENTATION MODULE InOut ;
 	IF unread THEN
 		unread := FALSE;
 		c := unreadch;
+		Done := TRUE;
 	ELSE
 		WITH ibuf DO
 			IF cnt <= maxcnt THEN