QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Add missing case in renaming

Browse Source
This commit is contained in:
Ulf Norell 2019-04-08 08:59:47 +02:00
parent e2c48e1069
commit 3a095cde7e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/aeso_ast_to_fcode.erl
View File

@ -350,7 +350,8 @@ rename_pat(Ren, {tuple, Xs}) ->
{{tuple, Zs}, Ren1}. {{tuple, Zs}, Ren1}.
rename_split(Ren, {split, Type, X, Cases}) -> rename_split(Ren, {split, Type, X, Cases}) ->
{split, Type, rename_var(Ren, X), [rename_case(Ren, C) || C <- Cases]}. {split, Type, rename_var(Ren, X), [rename_case(Ren, C) || C <- Cases]};
rename_split(Ren, {nosplit, E}) -> {nosplit, rename(Ren, E)}.
rename_case(Ren, {'case', Pat, Split}) -> rename_case(Ren, {'case', Pat, Split}) ->
{Pat1, Ren1} = rename_pat(Ren, Pat), {Pat1, Ren1} = rename_pat(Ren, Pat),