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 dc496ec..329190c 100644 (file)
--- 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