diff options
Diffstat (limited to 'lib')
| -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 93032140ce..c685ee2268 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -774,7 +774,7 @@ let list_split_at p = let rec split_at_loop x y = match y with | [] -> ([],[]) - | (a::l) -> if (p a) then (x,y) else (split_at_loop (x@[a]) l) + | (a::l) -> if (p a) then (List.rev x,y) else split_at_loop (a::x) l in split_at_loop [] |