diff options
Diffstat (limited to 'lib/cStack.ml')
| -rw-r--r-- | lib/cStack.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/cStack.ml b/lib/cStack.ml index e0a3733f66..4fab9c1733 100644 --- a/lib/cStack.ml +++ b/lib/cStack.ml @@ -26,7 +26,7 @@ let find_map f l = let seek f accu l = let rec aux accu = function | [] -> raise Not_found - | x :: xs -> match f accu x with Stop x -> x | Next i -> aux accu xs in + | x :: xs -> match f accu x with Stop x -> x | Next i -> aux i xs in aux accu !l let is_empty l = match !l with [] -> true | _ -> false let iter f l = List.iter f !l |