first matitadep snapshot

[helm.git] / helm / matita / matitaDb.ml

diff --git a/helm/matita/matitaDb.ml b/helm/matita/matitaDb.ml
index d4f5d01b1979246528a51eee128d46e4e175d214..423fa2b5a0b7ddba659d8f9c742f2ef2eda47283 100644 (file)
--- a/helm/matita/matitaDb.ml
+++ b/helm/matita/matitaDb.ml
@@ -146,13 +146,7 @@ let remove_uri uri =
     let l = ref [] in
     Mysql.iter rc (fun a -> match a.(0) with None ->()|Some a -> l := a:: !l);
     let l = List.sort Pervasives.compare !l in
-    let rec uniq = function 
-      | [] -> []
-      | h::[] -> [h]
-      | h1::h2::tl when h1 = h2 -> uniq (h2 :: tl) 
-      | h1::tl (* when h1 <> h2 *) -> h1 :: uniq tl
-    in
-    uniq l
+    MatitaMisc.list_uniq l
   with
     exn -> raise exn (* no errors should be accepted *)