From 6074ee21f8c67830eb02f56c06fc94044e0ccfdf Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack <arnaud@spiwack.net>
Date: Mon, 20 Oct 2014 13:19:36 +0200
Subject: Proofview: move [list_goto] to the [CList] module.

It is, after all, a generic function about lists.
---
 proofs/proof.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs/proof.ml')

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
-- 
cgit v1.2.3