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

Distinguish function application from constructor application

Browse Source
This commit is contained in:
Georges Dupéron 2019-03-14 18:54:36 +01:00
parent 3bf5ad2819
commit 76d4e1bb87
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
AST2.ml
View File

@ -468,7 +468,13 @@ and s_loop : I.loop -> O.instr list = function
and s_fun_call {value=(fun_name, arguments); region} : O.expr =
let () = ignore (region) in
App { operator = Function (s_name fun_name); arguments = s_arguments arguments }
let {value=fun_name_string;_} = fun_name in
let firstchar = String.sub fun_name_string 0 1 in
(* If it starts with a capital letter, then it is a constructor *)
if String.equal firstchar (String.uppercase_ascii firstchar) then
App { operator = Constructor (s_name fun_name); arguments = s_arguments arguments }
else
App { operator = Function (s_name fun_name); arguments = s_arguments arguments }
and s_constr_app {value=(constr, arguments); region} : O.expr =
let () = ignore (region) in