diff options
| author | Björn Gustavsson <[email protected]> | 2015-01-30 15:43:41 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-01-30 15:51:52 +0100 |
| commit | f667931e2905797ffab63e224e56eaf07f77178a (patch) | |
| tree | e202cad143ed4ecb5b2f0b2bad14292ea172890f /lib/compiler/src/core_scan.erl | |
| parent | e4a8ab7530d340249c09ca7f27b0120f55b8354a (diff) | |
| download | otp-f667931e2905797ffab63e224e56eaf07f77178a.tar.gz otp-f667931e2905797ffab63e224e56eaf07f77178a.tar.bz2 otp-f667931e2905797ffab63e224e56eaf07f77178a.zip | |
Make the syntax for map pairs readable
Use the same syntax for map pairs in Core Erlang code as in the
Erlang Code. This Erlang code:
M#{x:=42,y=>1}
will look like this in Core Erlang:
~{'x':=42,'y'=>1|M}~
Diffstat (limited to 'lib/compiler/src/core_scan.erl')
| -rw-r--r-- | lib/compiler/src/core_scan.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/compiler/src/core_scan.erl b/lib/compiler/src/core_scan.erl index b7799b373a..8ab20b1982 100644 --- a/lib/compiler/src/core_scan.erl +++ b/lib/compiler/src/core_scan.erl @@ -271,8 +271,10 @@ scan1("->" ++ Cs, Toks, Pos) -> scan1(Cs, [{'->',Pos}|Toks], Pos); scan1("-|" ++ Cs, Toks, Pos) -> scan1(Cs, [{'-|',Pos}|Toks], Pos); -scan1("::" ++ Cs, Toks, Pos) -> - scan1(Cs, [{'::',Pos}|Toks], Pos); +scan1(":=" ++ Cs, Toks, Pos) -> + scan1(Cs, [{':=',Pos}|Toks], Pos); +scan1("=>" ++ Cs, Toks, Pos) -> + scan1(Cs, [{'=>',Pos}|Toks], Pos); scan1([C|Cs], Toks, Pos) -> %Punctuation character P = list_to_atom([C]), scan1(Cs, [{P,Pos}|Toks], Pos); |