From: ceriel <none@none>
Date: Tue, 8 Mar 1988 11:28:00 +0000 (+0000)
Subject: The Get routine did not work right, fixed
X-Git-Tag: release-5-5~3581
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=1a259744af54e7c04bbdf118a224faa8141a767d;p=ack.git

The Get routine did not work right, fixed
---

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;