From 300623ac8896ef0ba1825604eed7d45a38121dff Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 28 Jul 1987 13:46:13 +0000
Subject: [PATCH] changed order in LIST, ReadString from InOut still did not
 work right

---
 lang/m2/libm2/InOut.mod | 1 +
 lang/m2/libm2/LIST      | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 1826e2de5..1312ba4bc 100644
--- 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 622df777b..f9bd631de 100644
--- 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
-- 
2.34.1