The Get routine did not work right, fixed

diff --git a/lang/m2/libm2/PascalIO.mod b/lang/m2/libm2/PascalIO.mod
index 8b01135..07703a7 100644 (file)
--- 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;