changed order in LIST, ReadString from InOut still did not work right

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 1826e2d..1312ba4 100644 (file)
--- a/lang/m2/libm2/InOut.mod
+++ b/lang/m2/libm2/InOut.mod
@@ -316,6 +316,7 @@ IMPLEMENTATION MODULE InOut ;
        IF NOT Done THEN
                RETURN;
        END;
+       UnRead(ch);
        REPEAT
                Read(ch);
                termCH := ch;

diff --git a/lang/m2/libm2/LIST b/lang/m2/libm2/LIST
index 622df77..f9bd631 100644 (file)
--- a/lang/m2/libm2/LIST
+++ b/lang/m2/libm2/LIST
@@ -15,9 +15,9 @@ Conversion.mod
 Semaphores.mod
 random.mod
 Strings.mod
-Arguments.c
 catch.c
 Traps.mod
+Arguments.c
 LtoUset.e
 StrAss.c
 absd.c