X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnReference.ml;h=d83fee65ab20ca6d67acefe078c0cfa295293a9e;hb=08e9d02504942642a917c0d3e4b4795e65172d89;hp=9d9ed88a6a4098b18c446d530bade36934e8171f;hpb=05e05dd130ec57395615de286ee50c6729d226ac;p=helm.git

diff --git a/helm/software/components/ng_kernel/nReference.ml b/helm/software/components/ng_kernel/nReference.ml
index 9d9ed88a6..d83fee65a 100644
--- a/helm/software/components/ng_kernel/nReference.ml
+++ b/helm/software/components/ng_kernel/nReference.ml
@@ -59,11 +59,9 @@ let set_of_reference = ref MapStringsToReference.empty;;
  *)
 
 let uri_suffix_of_ref_suffix = function
-    | "dec" 
-    | "def" -> "con"
-    | "ind" 
-    | "con" -> "ind"
-    | _ -> assert false
+    | "dec" | "fix" | "cfx" | "def" -> "con"
+    | "ind" | "con" -> "ind"
+    | x -> prerr_endline (x ^ " not a valid suffix"); assert false
 ;;
 
 let reference_of_string =
@@ -76,7 +74,7 @@ let reference_of_string =
     i,j
   in
   let get1 s dot =
-    let i = int_of_string (String.sub s (dot+5) (String.length s-1)) in
+    let i = int_of_string (String.sub s (dot+5) (String.length s-1-dot-5)) in
     i
   in
 fun s ->