Fix pattern matching on fpat
This commit is contained in:
parent
4c29750c3c
commit
9b9853cbfd
@ -414,7 +414,7 @@ split_to_scode(Env, {nosplit, Renames, Expr}) ->
|
||||
split_to_scode(Env, {split, {tuple, _}, X, Alts}) ->
|
||||
{Def, Alts1} = catchall_to_scode(Env, X, Alts),
|
||||
Arg = lookup_var(Env, X),
|
||||
Alt = case [ {Xs, Split} || {'case', {tuple, _, Xs}, Split} <- Alts1 ] of
|
||||
Alt = case [ {Xs, Split} || {'case', {tuple, Xs}, Split} <- Alts1 ] of
|
||||
[] -> missing;
|
||||
[{Xs, S} | _] ->
|
||||
{Code, Env1} = match_tuple(Env, Arg, Xs),
|
||||
|
Loading…
x
Reference in New Issue
Block a user