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

1987-07-28 13:46:13 +00:00
parent dfa4f3f011
commit 227e8dfd75
2 changed files with 2 additions and 1 deletions
--- 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;