QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Fix minor bug

Browse Source
This commit is contained in:
Ulf Norell 2019-04-02 11:28:46 +02:00
parent 68ee18fe70
commit 47a48812b8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/aeso_ast_to_fcode.erl
View File

@ -220,7 +220,7 @@ pat_to_fcode(_Env, Type, Pat) -> {todo, Pat, ':', Type}.
-spec stmts_to_fcode(env(), [aeso_syntax:stmt()]) -> fexpr(). -spec stmts_to_fcode(env(), [aeso_syntax:stmt()]) -> fexpr().
stmts_to_fcode(Env, [{letval, _, Pat, _, Expr} | Stmts]) -> stmts_to_fcode(Env, [{letval, _, Pat, _, Expr} | Stmts]) ->
{switch, expr_to_fcode(Env, Expr), {switch, expr_to_fcode(Env, Expr),
[{pat_to_fcode(Env, Pat), stmts_to_fcode(Env, Stmts)}]}; [{'case', pat_to_fcode(Env, Pat), stmts_to_fcode(Env, Stmts)}]};
stmts_to_fcode(Env, [Expr]) -> stmts_to_fcode(Env, [Expr]) ->
expr_to_fcode(Env, Expr). expr_to_fcode(Env, Expr).