Permalink
Browse files

enum: fixing a broken test of a working function

  • Loading branch information...
1 parent b1d714a commit 65fed89cb0ce4c4698b56379e53dffdc30d47b57 @sliquister sliquister committed with gasche Jan 8, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/batEnum.ml
View
@@ -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

0 comments on commit 65fed89

Please sign in to comment.