From 9046645590f78a64b791581f1bb7e74bbd92d9a4 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Tue, 16 Jun 1987 09:04:27 +0000
Subject: [PATCH] fix: Read did not set "Done" in the "unread" case

---
 lang/m2/libm2/InOut.mod | 1 +
 1 file changed, 1 insertion(+)

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