aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/src/erl_compile.erl
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2014-03-12 09:17:17 +0100
committerHans Bolinder <[email protected]>2014-03-20 16:00:26 +0100
commitce20094582493203c8812cd003e3d3b080f88607 (patch)
tree355a2fed2076173cde6ab1394542f67e17ba8a8a /lib/stdlib/src/erl_compile.erl
parent73af231f1a22083031df49ba19fdfd4f6b434a10 (diff)
downloadotp-ce20094582493203c8812cd003e3d3b080f88607.tar.gz
otp-ce20094582493203c8812cd003e3d3b080f88607.tar.bz2
otp-ce20094582493203c8812cd003e3d3b080f88607.zip
Fix some Dialyzer warnings
Dialyzer recognizes a certain pattern that makes it possible to get rid of 'The created fun has no local return' warnings.
Diffstat (limited to 'lib/stdlib/src/erl_compile.erl')
-rw-r--r--lib/stdlib/src/erl_compile.erl18
1 files changed, 10 insertions, 8 deletions
diff --git a/lib/stdlib/src/erl_compile.erl b/lib/stdlib/src/erl_compile.erl
index ed8fea5d78..caed4d41d6 100644
--- a/lib/stdlib/src/erl_compile.erl
+++ b/lib/stdlib/src/erl_compile.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 1997-2013. All Rights Reserved.
+%% Copyright Ericsson AB 1997-2014. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
@@ -66,7 +66,7 @@ my_halt(Reason) ->
compile(List) ->
process_flag(trap_exit, true),
- Pid = spawn_link(fun() -> compiler_runner(List) end),
+ Pid = spawn_link(compiler_runner(List)),
receive
{'EXIT', Pid, {compiler_result, Result}} ->
Result;
@@ -79,14 +79,16 @@ compile(List) ->
error
end.
--spec compiler_runner([cmd_line_arg()]) -> no_return().
+-spec compiler_runner([cmd_line_arg()]) -> fun(() -> no_return()).
compiler_runner(List) ->
- %% We don't want the current directory in the code path.
- %% Remove it.
- Path = [D || D <- code:get_path(), D =/= "."],
- true = code:set_path(Path),
- exit({compiler_result, compile1(List)}).
+ fun() ->
+ %% We don't want the current directory in the code path.
+ %% Remove it.
+ Path = [D || D <- code:get_path(), D =/= "."],
+ true = code:set_path(Path),
+ exit({compiler_result, compile1(List)})
+ end.
%% Parses the first part of the option list.