Remove anonymous records
This commit is contained in:
parent
35a59a0867
commit
2bffba379d
@ -212,7 +212,10 @@ and type_tuple = (type_expr, comma) nsepseq par reg
|
|||||||
(* Function and procedure declarations *)
|
(* Function and procedure declarations *)
|
||||||
|
|
||||||
and fun_decl =
|
and fun_decl =
|
||||||
BlockFun of {
|
BlockFun of block_fun reg
|
||||||
|
| BlocklessFun of blockless_fun reg
|
||||||
|
|
||||||
|
and block_fun = {
|
||||||
kwd_function : kwd_function;
|
kwd_function : kwd_function;
|
||||||
name : variable;
|
name : variable;
|
||||||
param : parameters;
|
param : parameters;
|
||||||
@ -224,8 +227,9 @@ and fun_decl =
|
|||||||
kwd_with : kwd_with;
|
kwd_with : kwd_with;
|
||||||
return : expr;
|
return : expr;
|
||||||
terminator : semi option }
|
terminator : semi option }
|
||||||
| BlocklessFun of
|
|
||||||
{ kwd_function : kwd_function;
|
and blockless_fun = {
|
||||||
|
kwd_function : kwd_function;
|
||||||
name : variable;
|
name : variable;
|
||||||
param : parameters;
|
param : parameters;
|
||||||
colon : colon;
|
colon : colon;
|
||||||
|
@ -203,7 +203,10 @@ and type_tuple = (type_expr, comma) nsepseq par reg
|
|||||||
(* Function declarations *)
|
(* Function declarations *)
|
||||||
|
|
||||||
and fun_decl =
|
and fun_decl =
|
||||||
BlockFun of {
|
BlockFun of block_fun reg
|
||||||
|
| BlocklessFun of blockless_fun reg
|
||||||
|
|
||||||
|
and block_fun = {
|
||||||
kwd_function : kwd_function;
|
kwd_function : kwd_function;
|
||||||
name : variable;
|
name : variable;
|
||||||
param : parameters;
|
param : parameters;
|
||||||
@ -215,8 +218,9 @@ and fun_decl =
|
|||||||
kwd_with : kwd_with;
|
kwd_with : kwd_with;
|
||||||
return : expr;
|
return : expr;
|
||||||
terminator : semi option }
|
terminator : semi option }
|
||||||
| BlocklessFun of
|
|
||||||
{ kwd_function : kwd_function;
|
and blockless_fun = {
|
||||||
|
kwd_function : kwd_function;
|
||||||
name : variable;
|
name : variable;
|
||||||
param : parameters;
|
param : parameters;
|
||||||
colon : colon;
|
colon : colon;
|
||||||
|
Loading…
Reference in New Issue
Block a user