From b43e8d9f68824236a83ab95b6e29679391752378 Mon Sep 17 00:00:00 2001 From: Ulf Norell Date: Mon, 6 May 2019 15:56:19 +0200 Subject: [PATCH] Compile statements --- src/aeso_ast_to_fcode.erl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/aeso_ast_to_fcode.erl b/src/aeso_ast_to_fcode.erl index 19ec5f4..1b76c19 100644 --- a/src/aeso_ast_to_fcode.erl +++ b/src/aeso_ast_to_fcode.erl @@ -700,9 +700,10 @@ decision_tree_to_fcode({'if', A, Then, Else}) -> -spec stmts_to_fcode(env(), [aeso_syntax:stmt()]) -> fexpr(). stmts_to_fcode(Env, [{letval, _, {typed, _, {id, _, X}, _}, _, Expr} | Stmts]) -> {'let', X, expr_to_fcode(Env, Expr), stmts_to_fcode(bind_var(Env, X), Stmts)}; - stmts_to_fcode(Env, [Expr]) -> - expr_to_fcode(Env, Expr). + expr_to_fcode(Env, Expr); +stmts_to_fcode(Env, [Expr | Stmts]) -> + {'let', "_", expr_to_fcode(Env, Expr), stmts_to_fcode(Env, Stmts)}. %% -- Builtins --