diff options
| author | Hans Bolinder <[email protected]> | 2014-10-31 08:38:49 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-04-30 12:15:24 +0200 |
| commit | cfdcd9e762212a8fb9b4755a69bf715d937f5563 (patch) | |
| tree | 06ad957e47af3fe654834db029ff29da75f6c594 /lib/parsetools/src/leex.erl | |
| parent | b63838ebab1750171ad60e086126431407f0c1b6 (diff) | |
| download | otp-cfdcd9e762212a8fb9b4755a69bf715d937f5563.tar.gz otp-cfdcd9e762212a8fb9b4755a69bf715d937f5563.tar.bz2 otp-cfdcd9e762212a8fb9b4755a69bf715d937f5563.zip | |
parsetools: Use module erl_anno
Diffstat (limited to 'lib/parsetools/src/leex.erl')
| -rw-r--r-- | lib/parsetools/src/leex.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/parsetools/src/leex.erl b/lib/parsetools/src/leex.erl index 03f864ff03..15d42a4d9c 100644 --- a/lib/parsetools/src/leex.erl +++ b/lib/parsetools/src/leex.erl @@ -1545,7 +1545,7 @@ out_action_code(File, XrlFile, {_A,Code,_Vars,Name,Args,ArgsChars}) -> %% Should set the file to the .erl file, but instead assumes that %% ?LEEXINC is syntactically correct. io:fwrite(File, "\n-compile({inline,~w/~w}).\n", [Name, length(Args)]), - {line, L} = erl_scan:token_info(hd(Code), line), + L = erl_scan:line(hd(Code)), output_file_directive(File, XrlFile, L-2), io:fwrite(File, "~s(~s) ->~n", [Name, ArgsChars]), io:fwrite(File, " ~s\n", [pp_tokens(Code, L)]). @@ -1557,7 +1557,7 @@ pp_tokens(Tokens, Line0) -> pp_tokens(Tokens, Line0, none). pp_tokens([], _Line0, _) -> []; pp_tokens([T | Ts], Line0, Prev) -> - {line, Line} = erl_scan:token_info(T, line), + Line = erl_scan:line(T), [pp_sep(Line, Line0, Prev, T), pp_symbol(T) | pp_tokens(Ts, Line, T)]. pp_symbol({var,_,Var}) -> atom_to_list(Var); |