From: ceriel <none@none>
Date: Tue, 16 Jun 1987 09:04:27 +0000 (+0000)
Subject: fix: Read did not set "Done" in the "unread" case
X-Git-Tag: release-5-5~4073
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=9c01340900e385895dd47be2971ff54082f74dea;p=ack.git

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

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index dc496ec48..329190c0e 100644
--- 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