From 116fefc244def171cb63a6a3e4dc4cf33c279fbf Mon Sep 17 00:00:00 2001
From: Gaith Hallak <gaithhallak@gmail.com>
Date: Mon, 14 Nov 2022 19:41:20 +0300
Subject: [PATCH] Fix missing fann() in tuple fexpr()

---
 src/aeso_ast_to_fcode.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/aeso_ast_to_fcode.erl b/src/aeso_ast_to_fcode.erl
index acb0a8a..93b434d 100644
--- a/src/aeso_ast_to_fcode.erl
+++ b/src/aeso_ast_to_fcode.erl
@@ -1166,13 +1166,13 @@ set_state({tuple, Ls}, Val) ->
     ?make_let(X, Val,
     lists:foldr(fun({I, L}, Code) ->
                     {'let', [], "_", set_state(L, {proj, get_fann(Val), X, I - 1}), Code}
-                end, {tuple, []}, indexed(Ls))).
+                end, {tuple, [], []}, indexed(Ls))).
 
 -spec get_state(state_layout()) -> fexpr().
 get_state({reg, R}) ->
     {get_state, [], R};
 get_state({tuple, Ls}) ->
-    {tuple, [get_state(L) || L <- Ls]}.
+    {tuple, [], [get_state(L) || L <- Ls]}.
 
 -spec builtin_to_fcode(state_layout(), BuiltinFun, [fexpr()]) -> fexpr() when
       BuiltinFun :: atom().  %% No need to mention all of them