298
298
scan1(Cs, [{'->',Pos}|Toks], Pos);
299
299
scan1("-|" ++ Cs, Toks, Pos) ->
300
300
scan1(Cs, [{'-|',Pos}|Toks], Pos);
302
scan1(Cs, [{'#<',Pos}|Toks], Pos);
304
scan1(Cs, [{'>#',Pos}|Toks], Pos);
305
301
scan1([C|Cs], Toks, Pos) -> %Punctuation character
307
303
scan1(Cs, [{P,Pos}|Toks], Pos);