diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-06-12 00:23:12 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-07-11 17:44:07 +0200 |
| commit | 070fbf084c2987959b321c4fd9d9d65202dc7984 (patch) | |
| tree | d35809cc202b1d2f28a86ebf55d83e3e13860b17 | |
| parent | e47da13f6a0b73a2cae5d5f602ac25c4ff3c440d (diff) | |
| download | otp-070fbf084c2987959b321c4fd9d9d65202dc7984.tar.gz otp-070fbf084c2987959b321c4fd9d9d65202dc7984.tar.bz2 otp-070fbf084c2987959b321c4fd9d9d65202dc7984.zip | |
stdlib: Use erlang:fun_info_mfa/1 in proc_lib:init_p/3
| -rw-r--r-- | lib/stdlib/src/proc_lib.erl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/stdlib/src/proc_lib.erl b/lib/stdlib/src/proc_lib.erl index 1eb6fc2e86..bf2a4e7ac5 100644 --- a/lib/stdlib/src/proc_lib.erl +++ b/lib/stdlib/src/proc_lib.erl @@ -216,10 +216,8 @@ ensure_link(SpawnOpts) -> init_p(Parent, Ancestors, Fun) when is_function(Fun) -> put('$ancestors', [Parent|Ancestors]), - {module,Mod} = erlang:fun_info(Fun, module), - {name,Name} = erlang:fun_info(Fun, name), - {arity,Arity} = erlang:fun_info(Fun, arity), - put('$initial_call', {Mod,Name,Arity}), + Mfa = erlang:fun_info_mfa(Fun), + put('$initial_call', Mfa), try Fun() catch |