summaryrefslogtreecommitdiff
path: root/lib/stdlib/src/erl_eval.erl
diff options
context:
space:
mode:
authorHans Bolinder <hasse@erlang.org>2020-10-22 07:48:50 +0200
committerHans Bolinder <hasse@erlang.org>2021-01-25 12:35:29 +0100
commit52de4c2dd9a1dbbe8f94f36ad325898fc59d49b7 (patch)
treee39f25a7e52ed4d3040220396f82d9565ccfcc83 /lib/stdlib/src/erl_eval.erl
parent4b056c05c2f36cc292ada758f811cba21f0c5fee (diff)
downloaderlang-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.erl20
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).