From 5adc47ac3a19f0dc2e31a28c067f5592a314c1af Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
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 8b011354..07703a70 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;