diff options
| author | Henrik Nord <[email protected]> | 2011-10-20 14:40:09 +0200 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2011-10-20 14:40:13 +0200 |
| commit | 896c1c7d262790d71019a583d880ee384e357167 (patch) | |
| tree | c1ddd1029caf04a8078e892913727f4bf9237973 /lib/stdlib/src | |
| parent | 45b4d5309e0686cc5fa28506de76f75b598bbd95 (diff) | |
| parent | 29610af8d3db844568cffc4218f79fc68bfd8094 (diff) | |
| download | otp-896c1c7d262790d71019a583d880ee384e357167.tar.gz otp-896c1c7d262790d71019a583d880ee384e357167.tar.bz2 otp-896c1c7d262790d71019a583d880ee384e357167.zip | |
Merge branch 'hl/fix-ms_transform-scope-warn'
* hl/fix-ms_transform-scope-warn:
ms_transform: Fix incorrect `variable shadowed' warnings
OTP-9646
Diffstat (limited to 'lib/stdlib/src')
| -rw-r--r-- | lib/stdlib/src/ms_transform.erl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lib/stdlib/src/ms_transform.erl b/lib/stdlib/src/ms_transform.erl index 48e22e53fa..63b397f3a5 100644 --- a/lib/stdlib/src/ms_transform.erl +++ b/lib/stdlib/src/ms_transform.erl @@ -333,17 +333,18 @@ form({function,Line,Name0,Arity0,Clauses0}) -> form(AnyOther) -> AnyOther. function(Name, Arity, Clauses0) -> - {Clauses1,_} = clauses(Clauses0,gb_sets:new()), + Clauses1 = clauses(Clauses0), {Name,Arity,Clauses1}. -clauses([C0|Cs],Bound) -> - {C1,Bound1} = clause(C0,Bound), - {C2,Bound2} = clauses(Cs,Bound1), - {[C1|C2],Bound2}; -clauses([],Bound) -> {[],Bound}. +clauses([C0|Cs]) -> + C1 = clause(C0,gb_sets:new()), + C2 = clauses(Cs), + [C1|C2]; +clauses([]) -> []. + clause({clause,Line,H0,G0,B0},Bound) -> {H1,Bound1} = copy(H0,Bound), - {B1,Bound2} = copy(B0,Bound1), - {{clause,Line,H1,G0,B1},Bound2}. + {B1,_Bound2} = copy(B0,Bound1), + {clause,Line,H1,G0,B1}. copy({call,Line,{remote,_Line2,{atom,_Line3,ets},{atom,_Line4,fun2ms}}, As0},Bound) -> |