[Oberon] System.Directory options

[Andreas Pirklbauer]

>
> WHILE ch > "!" DO pat[i] := ch; INC(i); Texts.Read(R, ch) END;
> pat[i] := 0X;
> IF ch = "!" THEN pat[i+1] := “!" ELSE pat[i+1]:= 0X END ; (*directory option*)
>

Even better (and shorter). So that’s the fix.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.inf.ethz.ch/pipermail/oberon/attachments/20171022/f5158248/attachment.html>