From 1a259744af54e7c04bbdf118a224faa8141a767d Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 8 Mar 1988 11:28:00 +0000
Subject: [PATCH] The Get routine did not work right, fixed

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

diff --git a/lang/m2/libm2/PascalIO.mod b/lang/m2/libm2/PascalIO.mod
index 8b0113546..07703a700 100644
--- a/lang/m2/libm2/PascalIO.mod
+++ b/lang/m2/libm2/PascalIO.mod
@@ -126,6 +126,7 @@ IMPLEMENTATION MODULE PascalIO;
 		IF type # Preading THEN Error(Preading); END;
 		IF NOT done THEN
 			Get(InputText);
+			done := TRUE;
 		END;
 		RETURN ch;
 	END;
@@ -145,7 +146,6 @@ IMPLEMENTATION MODULE PascalIO;
 		ELSE
 			Read(stream, ch, result);
 		END;
-		done := TRUE;
 	END;
   END Get;
 
-- 
2.34.1