diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-18 16:00:57 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-18 16:00:57 +0000 |
| commit | 451ecf7eb4fbd8ffa2058cdb8bb57e0b25a70b59 (patch) | |
| tree | c206b7a87f334ef189765b5fe0262dd4d8d1d9bc /toplevel | |
| parent | bf08866eabad4408de975bae92f3b3c1f718322c (diff) | |
More cleaning in CArray...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15819 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index e3c5142d9..b4e6eb543 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -992,7 +992,7 @@ let next_obligation n tac = in let obls, rem = prg.prg_obligations in let is_open _ x = x.obl_body = None && deps_remaining obls x.obl_deps = [] in - let i = match Array.find_i is_open obls with + let i = match Array.findi is_open obls with | Some i -> i | None -> anomaly "Could not find a solvable obligation." in |