From: ceriel <none@none>
Date: Tue, 15 Mar 1988 13:48:56 +0000 (+0000)
Subject: fix in writing of prompt
X-Git-Tag: release-5-5~3560
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=bda28533c5b4420d97d8bfe77197cf9d41d7d968;p=ack.git

fix in writing of prompt
---

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 368ea4f6d..743e4417b 100644
--- 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;