From 7a84cf1c8bbe9eecdcefd0f1db6b507bb5ab638f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@nomadic-labs.com>
Date: Thu, 14 Mar 2019 19:32:36 +0100
Subject: [PATCH] Removed If (missing in previous commit)

---
 AST2.ml | 1 -
 1 file changed, 1 deletion(-)

diff --git a/AST2.ml b/AST2.ml
index 86381a293..231257b2a 100644
--- a/AST2.ml
+++ b/AST2.ml
@@ -90,7 +90,6 @@ module O = struct
     Assignment    of { name: var_name; value: expr; orig: asttodo }
   | While         of { condition: expr; 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 }
   | ProcedureCall of { expr: expr; orig: asttodo } (* expr returns unit, drop the result. Similar to OCaml's ";". *)
   | Fail          of { expr: expr; orig: asttodo }