Fix pattern matching on fpat

This commit is contained in:
Gaith Hallak 2023-05-26 16:16:20 +03:00
parent 4c29750c3c
commit 9b9853cbfd

View File

@ -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),