Typo

braibant · Feb 7, 2014 · 536a9d2 · 536a9d2
1 parent b176936
commit 536a9d2
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/arti.ml b/src/arti.ml
@@ -167,12 +167,12 @@ module RBT = struct
     | Empty -> Red (Empty, x, Empty)
     | Red (l,v,r) -> 
       if x <= v 
-      then balance (Red (insert x l, v, r))
-      else balance (Red (l, v, insert x r))
+      then (Red (insert x l, v, r))
+      else (Red (l, v, insert x r))
     | Black (l,v,r) -> 
       if x <= v 
-      then (Black (insert x l, v, r))
-      else (Black (l, v, insert x r))
+      then balance (Black (insert x l, v, r))
+      else balance (Black (l, v, insert x r))
 
   let insert x n = black (insert x n)