godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix in writing of prompt

Browse Source
This commit is contained in:
ceriel 1988-03-15 13:48:56 +00:00
parent 1d2535dbb0
commit 049765a54a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lang/m2/libm2/InOut.mod
View File

@ -307,6 +307,7 @@ IMPLEMENTATION MODULE InOut ;
LOOP LOOP
IF (i <= HIGH(s)) AND (s[i] # 0C) THEN IF (i <= HIGH(s)) AND (s[i] # 0C) THEN
Streams.Write(Streams.OutputStream, s[i], result); Streams.Write(Streams.OutputStream, s[i], result);
INC(i);
ELSE ELSE
EXIT; EXIT;
END; END;