ocat fixed

This commit is contained in:
norayr 2016-12-07 17:44:01 +04:00
parent c5f0e1e345
commit 9d7f23c918

View file

@ -2,7 +2,7 @@ MODULE OCatCmd; (* J. Templ, 13-Jan-96 *)
(* looks at the OBERON search path and writes one or more Oberon or ascii texts to standard out *)
IMPORT Args, Console, Files := Files0, Texts := Texts0;
IMPORT Args, Console, Files, Texts;
PROCEDURE Cat*;
VAR path: ARRAY 128 OF CHAR; i: INTEGER; T: Texts.Text; R: Texts.Reader; ch: CHAR; tab: BOOLEAN;