From ac614e136639b609b645e068122546f5b9b29720 Mon Sep 17 00:00:00 2001
From: Gaith Hallak <gaithhallak@gmail.com>
Date: Fri, 7 Oct 2022 14:04:28 +0300
Subject: [PATCH] Extract adding child symbols into a separate fun

---
 src/aeso_fcode_to_fate.erl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/aeso_fcode_to_fate.erl b/src/aeso_fcode_to_fate.erl
index 3d00356..d0a7d7c 100644
--- a/src/aeso_fcode_to_fate.erl
+++ b/src/aeso_fcode_to_fate.erl
@@ -79,12 +79,7 @@ compile(ChildContracts, FCode, Options) ->
     SFuns  = functions_to_scode(ChildContracts, ContractName, Functions, Options),
     SFuns1 = optimize_scode(SFuns, Options),
     FateCode = to_basic_blocks(SFuns1),
-    ChildSymbols = maps:from_list(
-                     [ {make_function_id(FName), make_function_name(FName)}
-                       || {_, #{functions := ChildFuns}} <- maps:to_list(ChildContracts),
-                          FName <- maps:keys(ChildFuns)
-                     ]),
-    FateCode1 = aeb_fate_code:update_symbols(FateCode, ChildSymbols),
+    FateCode1 = add_child_symbols(ChildContracts, FateCode),
     ?debug(compile, Options, "~s\n", [aeb_fate_asm:pp(FateCode)]),
     FateCode1.
 
@@ -95,6 +90,11 @@ make_function_name(event)              -> <<"Chain.event">>;
 make_function_name({entrypoint, Name}) -> Name;
 make_function_name({local_fun, Xs})    -> list_to_binary("." ++ string:join(Xs, ".")).
 
+add_child_symbols(ChildContracts, FateCode) ->
+    Funs = lists:flatten([ maps:keys(ChildFuns) || {_, #{functions := ChildFuns}} <- maps:to_list(ChildContracts) ]),
+    Symbols = maps:from_list([ {make_function_id(FName), make_function_name(FName)} || FName <- Funs ]),
+    aeb_fate_code:update_symbols(FateCode, Symbols).
+
 functions_to_scode(ChildContracts, ContractName, Functions, Options) ->
     FunNames = maps:keys(Functions),
     maps:from_list(