Removed non-applied type_constructor, single parameter for lambda expression.
This commit is contained in:
parent
1db0f7c1fe
commit
8a11fc71eb
@ -41,7 +41,6 @@ module O = struct
|
|||||||
| TypeApp of type_constructor * (type_expr list)
|
| TypeApp of type_constructor * (type_expr list)
|
||||||
| Function of { arg: type_expr; ret: type_expr }
|
| Function of { arg: type_expr; ret: type_expr }
|
||||||
| Ref of type_expr
|
| Ref of type_expr
|
||||||
| TC of type_constructor
|
|
||||||
| String
|
| String
|
||||||
| Int
|
| Int
|
||||||
| Unit
|
| Unit
|
||||||
@ -68,7 +67,7 @@ module O = struct
|
|||||||
and decl = { var: typed_var; value: expr; orig: asttodo }
|
and decl = { var: typed_var; value: expr; orig: asttodo }
|
||||||
|
|
||||||
and lambda = {
|
and lambda = {
|
||||||
parameters: typed_var SMap.t;
|
parameter: typed_var;
|
||||||
declarations: decl list;
|
declarations: decl list;
|
||||||
instructions: instr list;
|
instructions: instr list;
|
||||||
result: expr;
|
result: expr;
|
||||||
|
@ -41,7 +41,6 @@ module O : sig
|
|||||||
| TypeApp of type_constructor * (type_expr list)
|
| TypeApp of type_constructor * (type_expr list)
|
||||||
| Function of { arg: type_expr; ret: type_expr }
|
| Function of { arg: type_expr; ret: type_expr }
|
||||||
| Ref of type_expr
|
| Ref of type_expr
|
||||||
| TC of type_constructor
|
|
||||||
| String
|
| String
|
||||||
| Int
|
| Int
|
||||||
| Unit
|
| Unit
|
||||||
@ -68,7 +67,7 @@ module O : sig
|
|||||||
and decl = { var: typed_var; value: expr; orig: asttodo }
|
and decl = { var: typed_var; value: expr; orig: asttodo }
|
||||||
|
|
||||||
and lambda = {
|
and lambda = {
|
||||||
parameters: typed_var SMap.t;
|
parameter: typed_var;
|
||||||
declarations: decl list;
|
declarations: decl list;
|
||||||
instructions: instr list;
|
instructions: instr list;
|
||||||
result: expr;
|
result: expr;
|
||||||
|
Loading…
Reference in New Issue
Block a user