diff options
Diffstat (limited to 'lib/util.ml')
-rw-r--r-- | lib/util.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/util.ml b/lib/util.ml index 9f29d55bd..5e2a071a9 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -810,7 +810,7 @@ let list_split_at index l = let list_split_when p = let rec split_when_loop x y = match y with - | [] -> ([],[]) + | [] -> (List.rev x,[]) | (a::l) -> if (p a) then (List.rev x,y) else split_when_loop (a::x) l in split_when_loop [] |