diff options
author | Björn-Egil Dahlberg <[email protected]> | 2013-04-15 18:28:15 +0200 |
---|---|---|
committer | Björn-Egil Dahlberg <[email protected]> | 2014-01-28 15:56:24 +0100 |
commit | 723fa9efadf7f841e7b835393ce801aa0a03e1cc (patch) | |
tree | 5aea857dd866d79df0462406708e167efa885ecd | |
parent | 331bb6cab54e6697e12cc9c5a4ca0ae618c37dd3 (diff) | |
download | otp-723fa9efadf7f841e7b835393ce801aa0a03e1cc.tar.gz otp-723fa9efadf7f841e7b835393ce801aa0a03e1cc.tar.bz2 otp-723fa9efadf7f841e7b835393ce801aa0a03e1cc.zip |
Teach erl_scan to recognize '=>'
-rw-r--r-- | lib/stdlib/src/erl_scan.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/stdlib/src/erl_scan.erl b/lib/stdlib/src/erl_scan.erl index 4ba6dd01fa..52376a8f3a 100644 --- a/lib/stdlib/src/erl_scan.erl +++ b/lib/stdlib/src/erl_scan.erl @@ -569,7 +569,7 @@ scan1("++"++Cs, St, Line, Col, Toks) -> tok2(Cs, St, Line, Col, Toks, "++", '++', 2); scan1("+"=Cs, _St, Line, Col, Toks) -> {more,{Cs,Col,Toks,Line,[],fun scan/6}}; -%% =:= =/= =< == +%% =:= =/= =< == => scan1("=:="++Cs, St, Line, Col, Toks) -> tok2(Cs, St, Line, Col, Toks, "=:=", '=:=', 3); scan1("=:"=Cs, _St, Line, Col, Toks) -> @@ -580,6 +580,8 @@ scan1("=/"=Cs, _St, Line, Col, Toks) -> {more,{Cs,Col,Toks,Line,[],fun scan/6}}; scan1("=<"++Cs, St, Line, Col, Toks) -> tok2(Cs, St, Line, Col, Toks, "=<", '=<', 2); +scan1("=>"++Cs, St, Line, Col, Toks) -> + tok2(Cs, St, Line, Col, Toks, "=>", '=>', 2); scan1("=="++Cs, St, Line, Col, Toks) -> tok2(Cs, St, Line, Col, Toks, "==", '==', 2); scan1("="=Cs, _St, Line, Col, Toks) -> |