Remove anonymous records

This commit is contained in:
John David Pressman 2019-10-17 22:34:38 -07:00
parent 35a59a0867
commit 2bffba379d
2 changed files with 30 additions and 22 deletions

View File

@ -212,7 +212,10 @@ and type_tuple = (type_expr, comma) nsepseq par reg
(* Function and procedure declarations *)
and fun_decl =
BlockFun of {
BlockFun of block_fun reg
| BlocklessFun of blockless_fun reg
and block_fun = {
kwd_function : kwd_function;
name : variable;
param : parameters;
@ -224,8 +227,9 @@ and fun_decl =
kwd_with : kwd_with;
return : expr;
terminator : semi option }
| BlocklessFun of
{ kwd_function : kwd_function;
and blockless_fun = {
kwd_function : kwd_function;
name : variable;
param : parameters;
colon : colon;

View File

@ -203,7 +203,10 @@ and type_tuple = (type_expr, comma) nsepseq par reg
(* Function declarations *)
and fun_decl =
BlockFun of {
BlockFun of block_fun reg
| BlocklessFun of blockless_fun reg
and block_fun = {
kwd_function : kwd_function;
name : variable;
param : parameters;
@ -215,8 +218,9 @@ and fun_decl =
kwd_with : kwd_with;
return : expr;
terminator : semi option }
| BlocklessFun of
{ kwd_function : kwd_function;
and blockless_fun = {
kwd_function : kwd_function;
name : variable;
param : parameters;
colon : colon;