More let-floating

2019-09-24 16:22:41 +02:00 · 2019-09-24 16:22:41 +02:00 · 0a22c7a34a
commit 0a22c7a34a
parent c8153f94a6
1 changed files with 3 additions and 0 deletions
--- a/src/aeso_ast_to_fcode.erl
+++ b/src/aeso_ast_to_fcode.erl
@ -1231,6 +1231,9 @@ let_float(_, {proj, E, I}) ->
    pull_out_let({proj, {here, E}, I});
 let_float(_, {set_proj, E, I, V}) ->
    pull_out_let({set_proj, {here, E}, I, {here, V}});
+let_float(_, {op, Op, Es}) ->
+    {Lets, Es1} = pull_out_let([{here, E} || E <- Es]),
+    let_bind(Lets, {op, Op, Es1});
 let_float(_, E) -> E.

 pull_out_let(Expr) when is_tuple(Expr) ->