diff options
author | Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-20 13:19:36 +0200 |
---|---|---|
committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-22 07:31:45 +0200 |
commit | 6074ee21f8c67830eb02f56c06fc94044e0ccfdf (patch) | |
tree | f35b9db68dbc75cdf4f0ddd0c941441db67dde33 /proofs/proof.ml | |
parent | 9f51aafebd5f3a00dabfe056772a300830b3c430 (diff) |
Proofview: move [list_goto] to the [CList] module.
It is, after all, a generic function about lists.
Diffstat (limited to 'proofs/proof.ml')
-rw-r--r-- | proofs/proof.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index 15ce94011..24fdc41da 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -215,7 +215,7 @@ let _unfocus pr = a need for it? *) let focus cond inf i pr = try _focus cond (Obj.repr inf) i i pr - with Proofview.IndexOutOfRange -> raise (NoSuchGoals (i,i)) + with CList.IndexOutOfRange -> raise (NoSuchGoals (i,i)) let rec unfocus kind pr () = let cond = cond_of_focus pr in |