fix in writing of prompt

1988-03-15 13:48:56 +00:00 · 1988-03-15 13:48:56 +00:00 · 049765a54a
commit 049765a54a
parent 1d2535dbb0
1 changed files with 1 additions and 0 deletions
--- a/lang/m2/libm2/InOut.mod
+++ b/lang/m2/libm2/InOut.mod
@ -307,6 +307,7 @@ IMPLEMENTATION MODULE InOut ;
 	LOOP
 		IF (i <= HIGH(s)) AND (s[i] # 0C) THEN
 			Streams.Write(Streams.OutputStream, s[i], result);
+			INC(i);
 		ELSE
 			EXIT;
 		END;