Tiny comment fix

phases/boolop.ml

@@ -36,11 +36,11 @@ and bool_op = function
   | TypeCast (Bool, value, ann) when typeof value = Float ->
     Binop (Ne, bool_op value, floatconst 0.0, ann)
 
-  (* (int)b1    ==>   b1 ? 1 : 0 *)
+  (* (int)b     ==>   b ? 1 : 0 *)
   | TypeCast (Int, value, ann) when typeof value = Bool ->
     Cond (bool_op value, intconst 1l, intconst 0l, ann)
 
-  (* (float)b1  ==>   b1 ? 1.0 : 0.0 *)
+  (* (float)b   ==>   b ? 1.0 : 0.0 *)
   | TypeCast (Float, value, ann) when typeof value = Bool ->
     Cond (bool_op value, floatconst 1.0, floatconst 0.0, ann)
 

phases/boolop.mli

@@ -22,8 +22,8 @@ b1 && b2    ==>   b1 ? b2 : false
 b1 || b2    ==>   b1 ? true : b2
 (bool)i     ==>   i != 0
 (bool)f     ==>   f != 0.0
-(int)b1     ==>   b1 ? 1 : 0
-(float)b1   ==>   b1 ? 1.0 : 0.0 v}
+(int)b      ==>   b ? 1 : 0
+(float)b    ==>   b ? 1.0 : 0.0 v}
     *)
 
 (** Main phase function, called by {!Main}. *)