X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_disambiguation%2Fnumber_notation.ml;h=06099dcfe20a5aa02ab46be5b22835e517b514d6;hb=d3f1cdd3ebec515770d4c2f8a4f7bbc1859e8946;hp=78135d9bef9abcf129b2c19a0d52ee3ace492aef;hpb=7d4c0852a28f35c6b9f7c56b26421f0ef81dfe1b;p=helm.git

diff --git a/helm/software/components/cic_disambiguation/number_notation.ml b/helm/software/components/cic_disambiguation/number_notation.ml
index 78135d9be..06099dcfe 100644
--- a/helm/software/components/cic_disambiguation/number_notation.ml
+++ b/helm/software/components/cic_disambiguation/number_notation.ml
@@ -28,24 +28,24 @@
 let _ =
   DisambiguateChoices.add_num_choice
     ("natural number",
-      (fun _ num _ -> LibraryObjects.build_nat (int_of_string num)));
+      `Num_interp (fun num -> LibraryObjects.build_nat (int_of_string num)));
   DisambiguateChoices.add_num_choice
     ("Coq natural number",
-      (fun _ num _ -> HelmLibraryObjects.build_nat (int_of_string num)));
+      `Num_interp (fun num -> HelmLibraryObjects.build_nat (int_of_string num)));
   DisambiguateChoices.add_num_choice
     ("real number",
-      (fun _ num _ -> HelmLibraryObjects.build_real (int_of_string num)));
+      `Num_interp (fun num -> HelmLibraryObjects.build_real (int_of_string num)));
   DisambiguateChoices.add_num_choice
     ("binary positive number",
-      (fun _ num _ ->
+      `Num_interp (fun num ->
         let num = int_of_string num in
         if num = 0 then
-          raise (DisambiguateTypes.Invalid_choice (None, lazy "0 is not a valid positive number"))
+          raise (DisambiguateTypes.Invalid_choice (lazy (Stdpp.dummy_loc, "0 is not a valid positive number")))
         else
           HelmLibraryObjects.build_bin_pos num));
   DisambiguateChoices.add_num_choice
     ("binary integer number",
-      (fun _ num _ ->
+      `Num_interp (fun num ->
         let num = int_of_string num in
         if num = 0 then
           HelmLibraryObjects.BinInt.z0
@@ -55,4 +55,3 @@ let _ =
             HelmLibraryObjects.build_bin_pos num ]
         else
           assert false))
-