diff options
Diffstat (limited to 'toplevel/obligations.ml')
| -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 e3c5142d9e..b4e6eb543d 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 |