diff options
| author | Björn Gustavsson <[email protected]> | 2011-12-30 11:10:26 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-01-11 08:39:56 +0100 |
| commit | e196820fad6b38b3969fc67d0b01853c7ac0d565 (patch) | |
| tree | 6f40710a9ee666f859028ae19a28d6883f102f36 /lib/compiler | |
| parent | 68651be298a997a22224f53445688a74dc2fab7d (diff) | |
| download | otp-e196820fad6b38b3969fc67d0b01853c7ac0d565.tar.gz otp-e196820fad6b38b3969fc67d0b01853c7ac0d565.tar.bz2 otp-e196820fad6b38b3969fc67d0b01853c7ac0d565.zip | |
sys_core_fold: Refactor previous_ctx_to_binary/2 to cover it completely
Diffstat (limited to 'lib/compiler')
| -rw-r--r-- | lib/compiler/src/sys_core_fold.erl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/compiler/src/sys_core_fold.erl b/lib/compiler/src/sys_core_fold.erl index c92ee86e07..6a8fd8980c 100644 --- a/lib/compiler/src/sys_core_fold.erl +++ b/lib/compiler/src/sys_core_fold.erl @@ -2589,14 +2589,14 @@ bsm_maybe_ctx_to_binary(V, B) -> body=B} end. -previous_ctx_to_binary(V, #c_seq{arg=#c_primop{name=Name,args=As}}) -> - case {Name,As} of - {#c_literal{val=bs_context_to_binary},[#c_var{name=V}]} -> +previous_ctx_to_binary(V, Core) -> + case Core of + #c_seq{arg=#c_primop{name=#c_literal{val=bs_context_to_binary}, + args=[#c_var{name=V}]}} -> true; - {_,_} -> + _ -> false - end; -previous_ctx_to_binary(_, _) -> false. + end. %% bsm_leftmost(Cs) -> none | ArgumentNumber %% Find the leftmost argument that does binary matching. Return |