Removed If (missing in previous commit)
This commit is contained in:
parent
8fc1729f47
commit
7a84cf1c8b
1
AST2.ml
1
AST2.ml
@ -90,7 +90,6 @@ module O = struct
|
|||||||
Assignment of { name: var_name; value: expr; orig: asttodo }
|
Assignment of { name: var_name; value: expr; orig: asttodo }
|
||||||
| While of { condition: expr; body: instr list; orig: asttodo }
|
| While of { condition: expr; body: instr list; orig: asttodo }
|
||||||
| ForCollection of { list: expr; var: var_name; body: instr list; orig: asttodo }
|
| ForCollection of { list: expr; var: var_name; body: instr list; orig: asttodo }
|
||||||
| If of { condition: expr; ifso: instr list; ifnot: instr list; orig: asttodo }
|
|
||||||
| Match of { expr: expr; cases: (pattern * instr list) list; orig: asttodo }
|
| Match of { expr: expr; cases: (pattern * instr list) list; orig: asttodo }
|
||||||
| ProcedureCall of { expr: expr; orig: asttodo } (* expr returns unit, drop the result. Similar to OCaml's ";". *)
|
| ProcedureCall of { expr: expr; orig: asttodo } (* expr returns unit, drop the result. Similar to OCaml's ";". *)
|
||||||
| Fail of { expr: expr; orig: asttodo }
|
| Fail of { expr: expr; orig: asttodo }
|
||||||
|
Loading…
Reference in New Issue
Block a user