From 3edfacee35460265ca4fadbebd003bebf4b8742a Mon Sep 17 00:00:00 2001 From: gareuselesinge Date: Fri, 13 Sep 2013 15:44:16 +0000 Subject: Do no compage wg_Notebook terms with (=) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16775 85f007b7-540e-0410-9357-904b9bb8a0f7 --- ide/wg_Notebook.ml | 4 ++-- ide/wg_Notebook.mli | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ide/wg_Notebook.ml b/ide/wg_Notebook.ml index 7a4ddc010..76d6cbed9 100644 --- a/ide/wg_Notebook.ml +++ b/ide/wg_Notebook.ml @@ -45,8 +45,8 @@ object(self) method get_nth_term i = List.nth term_list i - method term_num p = - Util.List.index0 p term_list + method term_num f p = + Util.List.index0_f f p term_list method pages = term_list diff --git a/ide/wg_Notebook.mli b/ide/wg_Notebook.mli index a424fc029..df6474387 100644 --- a/ide/wg_Notebook.mli +++ b/ide/wg_Notebook.mli @@ -16,7 +16,7 @@ object method prepend_term : 'a -> int method set_term : 'a -> unit method get_nth_term : int -> 'a - method term_num : 'a -> int + method term_num : ('a -> 'a -> bool) -> 'a -> int method pages : 'a list method remove_page : int -> unit method current_term : 'a -- cgit v1.2.3