enum: fixing a broken test of a working function

hcarty · Jan 8, 2012 · 65fed89 · 65fed89
1 parent b1d714a
commit 65fed89
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/batEnum.ml b/src/batEnum.ml
@@ -652,7 +652,7 @@ let switch f e =
 let partition = switch
 
 (**T partition
-   let a,b = partition ((>) 3) (List.enum [1;2;3;4;5;1;5;0]) in List.of_enum a = [4;5;5] && List.of_enum b = [1;2;3;1;0]
+   let a,b = partition (fun x -> x > 3) (List.enum [1;2;3;4;5;1;5;0]) in List.of_enum a = [4;5;5] && List.of_enum b = [1;2;3;1;0]
 **)
 
 (**Q partition