diff options
author | Hans Bolinder <hasse@erlang.org> | 2020-10-22 07:48:50 +0200 |
---|---|---|
committer | Hans Bolinder <hasse@erlang.org> | 2021-01-25 12:35:29 +0100 |
commit | 52de4c2dd9a1dbbe8f94f36ad325898fc59d49b7 (patch) | |
tree | e39f25a7e52ed4d3040220396f82d9565ccfcc83 /lib/stdlib/src/erl_eval.erl | |
parent | 4b056c05c2f36cc292ada758f811cba21f0c5fee (diff) | |
download | erlang-52de4c2dd9a1dbbe8f94f36ad325898fc59d49b7.tar.gz |
stdlib: Correct types, specs and variable names
Diffstat (limited to 'lib/stdlib/src/erl_eval.erl')
-rw-r--r-- | lib/stdlib/src/erl_eval.erl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/stdlib/src/erl_eval.erl b/lib/stdlib/src/erl_eval.erl index 0534a93f9a..9ed0e5eead 100644 --- a/lib/stdlib/src/erl_eval.erl +++ b/lib/stdlib/src/erl_eval.erl @@ -90,7 +90,7 @@ exprs(Exprs, Bs) -> case check_command(Exprs, Bs) of ok -> exprs(Exprs, Bs, none, none, none); - {error,{_Line,_Mod,Error}} -> + {error,{_Location,_Mod,Error}} -> erlang:raise(error, Error, ?STACKTRACE) end. @@ -141,7 +141,7 @@ expr(E, Bs) -> case check_command([E], Bs) of ok -> expr(E, Bs, none, none, none); - {error,{_Line,_Mod,Error}} -> + {error,{_Location,_Mod,Error}} -> erlang:raise(error, Error, ?STACKTRACE) end. @@ -1098,8 +1098,8 @@ match(Pat, Term, Bs, BBs) -> end. string_to_conses([], _, Tail) -> Tail; -string_to_conses([E|Rest], Line, Tail) -> - {cons, Line, {integer, Line, E}, string_to_conses(Rest, Line, Tail)}. +string_to_conses([E|Rest], Anno, Tail) -> + {cons, Anno, {integer, Anno, E}, string_to_conses(Rest, Anno, Tail)}. match1({atom,_,A0}, A, Bs, _BBs) -> case A of @@ -1547,11 +1547,11 @@ eval_expr(Expr) -> end. partial_eval(Expr) -> - Line = line(Expr), + Anno = anno(Expr), case catch ev_expr(Expr) of - X when is_integer(X) -> ret_expr(Expr,{integer,Line,X}); - X when is_float(X) -> ret_expr(Expr,{float,Line,X}); - X when is_atom(X) -> ret_expr(Expr,{atom,Line,X}); + X when is_integer(X) -> ret_expr(Expr,{integer,Anno,X}); + X when is_float(X) -> ret_expr(Expr,{float,Anno,X}); + X when is_atom(X) -> ret_expr(Expr,{atom,Anno,X}); _ -> Expr end. @@ -1599,7 +1599,7 @@ eval_str(Str) when is_list(Str) -> Other -> {error, ?result("*** eval: ~p", [Other])} end; - {error, {_Line, Mod, Args}} -> + {error, {_Location, Mod, Args}} -> Msg = ?result("*** ~ts",[Mod:format_error(Args)]), {error, Msg} end; @@ -1622,4 +1622,4 @@ ret_expr(_Old, New) -> %% [line(Old), erl_pp:expr(Old), erl_pp:expr(New)]), New. -line(Expr) -> element(2, Expr). +anno(Expr) -> element(2, Expr). |