diff options
| author | Stavros Aronis <[email protected]> | 2011-12-16 13:37:16 +0100 |
|---|---|---|
| committer | Stavros Aronis <[email protected]> | 2012-02-22 13:04:27 +0100 |
| commit | 8900a242fb35212b64b6b4246caa0ace128ca9b4 (patch) | |
| tree | 31c9d2ea6873a928cad442bf7c49ac11b0ac430a /lib/dialyzer/src | |
| parent | a9b23189c41028b8b4e6e417b3f779253f4d3fe3 (diff) | |
| download | otp-8900a242fb35212b64b6b4246caa0ace128ca9b4.tar.gz otp-8900a242fb35212b64b6b4246caa0ace128ca9b4.tar.bz2 otp-8900a242fb35212b64b6b4246caa0ace128ca9b4.zip | |
Support alternative spelling of behaviour
Diffstat (limited to 'lib/dialyzer/src')
| -rw-r--r-- | lib/dialyzer/src/dialyzer_behaviours.erl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/dialyzer/src/dialyzer_behaviours.erl b/lib/dialyzer/src/dialyzer_behaviours.erl index e89c08df7d..c6a47603e9 100644 --- a/lib/dialyzer/src/dialyzer_behaviours.erl +++ b/lib/dialyzer/src/dialyzer_behaviours.erl @@ -72,9 +72,11 @@ check_callbacks(Module, Attrs, Plt, Codeserver) -> %%-------------------------------------------------------------------- get_behaviours(Attrs) -> - BehaviourListsAndLine = [{cerl:concrete(L2), hd(cerl:get_ann(L2))} || - {L1, L2} <- Attrs, cerl:is_literal(L1), - cerl:is_literal(L2), cerl:concrete(L1) =:= 'behaviour'], + BehaviourListsAndLine = + [{cerl:concrete(L2), hd(cerl:get_ann(L2))} || + {L1, L2} <- Attrs, cerl:is_literal(L1), + cerl:is_literal(L2), cerl:concrete(L1) =:= 'behaviour' orelse + cerl:concrete(L1) =:= 'behavior'], Behaviours = lists:append([Behs || {Behs,_} <- BehaviourListsAndLine]), BehLines = [{B,L} || {L1,L} <- BehaviourListsAndLine, B <- L1], {Behaviours, BehLines}. |