diff options
| author | Björn Gustavsson <[email protected]> | 2011-12-30 11:25:51 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-01-04 16:14:19 +0100 |
| commit | d990fedd8f817373066debe6ecea343622b1a78e (patch) | |
| tree | dfc7fb4f478f9f953e322a9ab76d8f1819ce757f /lib/compiler/src | |
| parent | ba0adbfc6a0947f2ef34855e88010fc1df78c86b (diff) | |
| download | otp-d990fedd8f817373066debe6ecea343622b1a78e.tar.gz otp-d990fedd8f817373066debe6ecea343622b1a78e.tar.bz2 otp-d990fedd8f817373066debe6ecea343622b1a78e.zip | |
bs_match_SUITE: Add a test case to cover bsm_ensure_no_partition_2/5
Also correct the comment in bsm_ensure_no_partition_2/5, and while at
it correct typos in the comment for bsm_nonempty/2.
Diffstat (limited to 'lib/compiler/src')
| -rw-r--r-- | lib/compiler/src/sys_core_fold.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/compiler/src/sys_core_fold.erl b/lib/compiler/src/sys_core_fold.erl index 6ea67741fa..5b155398dc 100644 --- a/lib/compiler/src/sys_core_fold.erl +++ b/lib/compiler/src/sys_core_fold.erl @@ -2641,9 +2641,9 @@ bsm_leftmost_2([_|Ps], Cs, N, Pos) -> bsm_leftmost_2([], Cs, _, Pos) -> bsm_leftmost_1(Cs, Pos). -%% bsm_notempty(Cs, Pos) -> true|false +%% bsm_nonempty(Cs, Pos) -> true|false %% Check if at least one of the clauses matches a non-empty -%% binary in the given argumet position. +%% binary in the given argument position. %% bsm_nonempty([#c_clause{pats=Ps}|Cs], Pos) -> case nth(Pos, Ps) of @@ -2704,7 +2704,7 @@ bsm_ensure_no_partition_2([P|_], 1, _, Vstate, State) -> %% %% But if the clauses can't be freely rearranged, as in %% - %% b(Var, <<>>) -> ... + %% b(Var, <<X>>) -> ... %% b(1, 2) -> ... %% %% we do have a problem. |