ocaml 3.09 transition

[helm.git] / helm / ocaml / cic_disambiguation / number_notation.ml

diff --git a/helm/ocaml/cic_disambiguation/number_notation.ml b/helm/ocaml/cic_disambiguation/number_notation.ml
index 7ce0ec0a0face58e43e0a041b4733612cb1267bf..09f488e863b412a963f556866a2e5d85ceb21cd4 100644 (file)
--- a/helm/ocaml/cic_disambiguation/number_notation.ml
+++ b/helm/ocaml/cic_disambiguation/number_notation.ml
@@ -38,7 +38,7 @@ let _ =
       (fun _ num _ ->
         let num = int_of_string num in
         if num = 0 then
-          raise DisambiguateTypes.Invalid_choice
+          raise (DisambiguateTypes.Invalid_choice (lazy "0 is not a valid positive number"))
         else
           HelmLibraryObjects.build_bin_pos num));
   DisambiguateChoices.add_num_choice