balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emmit a t_function when no variables are captured

Browse Source
This commit is contained in:
Lesenechal Remi 2019-10-03 10:21:09 +02:00
parent 6fbe43d28a
commit 962a98da75
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/passes/6-transpiler/transpiler.ml
View File

@ -232,7 +232,10 @@ and transpile_environment_element_type : AST.environment_element -> type_value r
let%bind arg' = transpile_type arg in let%bind arg' = transpile_type arg in
let%bind env' = transpile_environment ae.environment in let%bind env' = transpile_environment ae.environment in
let sub_env = Mini_c.Environment.select captured_variables env' in let sub_env = Mini_c.Environment.select captured_variables env' in
ok @@ Combinators.t_deep_closure sub_env arg' ret' if sub_env = [] then
transpile_type ele.type_value
else
ok @@ Combinators.t_deep_closure sub_env arg' ret'
| _ -> transpile_type ele.type_value | _ -> transpile_type ele.type_value
end end
| _ -> transpile_type ele.type_value | _ -> transpile_type ele.type_value