diff options
author | Dan Gudmundsson <[email protected]> | 2016-05-30 14:14:54 +0200 |
---|---|---|
committer | Dan Gudmundsson <[email protected]> | 2016-05-30 14:14:54 +0200 |
commit | 5e316eca0302c1664b9076284f38cd9b98a88dea (patch) | |
tree | 7ff77b3a0ed55dfe3affc2e243f6d8ecc45517cc /lib/stdlib/src/proc_lib.erl | |
parent | 9e1cf7d76879d9e4d2a32e12ac036b195fcecbb1 (diff) | |
parent | cd412d911efbda23e7dd3aef5cf910defc886211 (diff) | |
download | otp-5e316eca0302c1664b9076284f38cd9b98a88dea.tar.gz otp-5e316eca0302c1664b9076284f38cd9b98a88dea.tar.bz2 otp-5e316eca0302c1664b9076284f38cd9b98a88dea.zip |
Merge branch 'dgud/stdlib/relax-proc_lib-initial-call/OTP-13623'
* dgud/stdlib/relax-proc_lib-initial-call/OTP-13623:
Relax translation of initial calls
Diffstat (limited to 'lib/stdlib/src/proc_lib.erl')
-rw-r--r-- | lib/stdlib/src/proc_lib.erl | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/lib/stdlib/src/proc_lib.erl b/lib/stdlib/src/proc_lib.erl index 4a19603ec2..3dc1848550 100644 --- a/lib/stdlib/src/proc_lib.erl +++ b/lib/stdlib/src/proc_lib.erl @@ -479,18 +479,12 @@ trans_init(gen,init_it,[gen_server,_,_,supervisor_bridge,[Module|_],_]) -> {supervisor_bridge,Module,1}; trans_init(gen,init_it,[gen_server,_,_,_,supervisor_bridge,[Module|_],_]) -> {supervisor_bridge,Module,1}; -trans_init(gen,init_it,[GenMod,_,_,Module,_,_]) - when GenMod =:= gen_server; - GenMod =:= gen_statem; - GenMod =:= gen_fsm -> - {Module,init,1}; -trans_init(gen,init_it,[GenMod,_,_,_,Module|_]) - when GenMod =:= gen_server; - GenMod =:= gen_statem; - GenMod =:= gen_fsm -> - {Module,init,1}; trans_init(gen,init_it,[gen_event|_]) -> {gen_event,init_it,6}; +trans_init(gen,init_it,[_GenMod,_,_,Module,_,_]) when is_atom(Module) -> + {Module,init,1}; +trans_init(gen,init_it,[_GenMod,_,_,_,Module|_]) when is_atom(Module) -> + {Module,init,1}; trans_init(M, F, A) when is_atom(M), is_atom(F) -> {M,F,length(A)}. |