From 3a095cde7e51d3bdf56782950e67fd423f932118 Mon Sep 17 00:00:00 2001 From: Ulf Norell Date: Mon, 8 Apr 2019 08:59:47 +0200 Subject: [PATCH] Add missing case in renaming --- src/aeso_ast_to_fcode.erl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/aeso_ast_to_fcode.erl b/src/aeso_ast_to_fcode.erl index 204b96b..d2190ed 100644 --- a/src/aeso_ast_to_fcode.erl +++ b/src/aeso_ast_to_fcode.erl @@ -350,7 +350,8 @@ rename_pat(Ren, {tuple, Xs}) -> {{tuple, Zs}, Ren1}. 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}) -> {Pat1, Ren1} = rename_pat(Ren, Pat),