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

Gabriel wants to see the code

Browse Source
This commit is contained in:
John David Pressman 2019-10-19 09:11:18 -07:00
parent 6e0173a9a7
commit ec67d37f20
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/passes/2-simplify/pascaligo.ml
View File

@ -544,7 +544,23 @@ and simpl_fun_declaration :
loc:_ -> Raw.fun_decl -> ((name * type_expression option) * expression) result = loc:_ -> Raw.fun_decl -> ((name * type_expression option) * expression) result =
fun ~loc x -> fun ~loc x ->
let open! Raw in let open! Raw in
let {name;param;ret_type;local_decls;block;return} : fun_decl = x in let (name, param, ret_type, return) =
match x with
| BlockFun f -> (f.name, f.param, f.ret_type, f.return)
| BlocklessFun f -> (f.name, f.param, f.ret_type, f.return)
in
let block =
match x with
| BlockFun f -> f.block
| BlocklessFun _ ->
{region = Region.ghost;
value = {
opening = Raw.keyword;
statements = [(Raw.kwd_skip * Raw.SEMI)];
terminator = Some Raw.SEMI;
closing = Raw.kwd_end;
}
in
(match param.value.inside with (match param.value.inside with
a, [] -> ( a, [] -> (
let%bind input = simpl_param a in let%bind input = simpl_param a in