diff options
| -rw-r--r-- | ide/wg_Notebook.ml | 4 | ||||
| -rw-r--r-- | 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 7a4ddc010f..76d6cbed9e 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 a424fc0295..df64743871 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 |