Code: Select all
(* search legal start symbol *)
WHILE ~r.eot & ((ch < "A") OR (ch > "Z") & (ch # "_") & (ch < "a") OR (ch > "z")) DO
INC(beg); r.ReadChar(ch)
END;
So this code should be replaced with:
Code: Select all
(* search legal start symbol *)
WHILE ~r.eot & ~ Kernel.IsAlpha(ch) DO
INC(beg); r.ReadChar(ch)
END;