diff options
| author | gareuselesinge | 2013-09-12 12:31:57 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-09-12 12:31:57 +0000 |
| commit | 1d7a261c61ef01810ce163a21efd3c1e3247d0fa (patch) | |
| tree | 44101432d4133f78a0cebec9faf997a1cabc721f /lib/cStack.ml | |
| parent | efb6e714097b95a2c6d1de80dde70f5252f90d7f (diff) | |
Fix bug in CStack introduced by refactoring
Refactorings should be tested, right?
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16768 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |