[Oberon] System.Directory options

[Paul Reed]

>> 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*)

Maybe I'm missing something (and at the risk of flogging another dead
horse), surely the IF statement is unnecessary?

If ch is "!" then we want to put it in pat[i+1], if not then since
PROCEDURE List only compares with that value, any other one will do.  So
that's why I suggested putting ch in in both cases.

FWIW, I was also concerned about what would have to change if another
option was added.

Paul (bracing myself!) :)