X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Flibrary%2FlibraryDb.ml;h=8c11f591f1ba0b22c47b7b628665da3b7706e364;hb=259161c5fe5925d08f059e6832ac7f998c7ef055;hp=389b7f483efeba199bd5dff48276f73116c9bc0a;hpb=0ac236dda6f80f6dc86a7f12d8c88b25e64e3251;p=helm.git diff --git a/helm/ocaml/library/libraryDb.ml b/helm/ocaml/library/libraryDb.ml index 389b7f483..8c11f591f 100644 --- a/helm/ocaml/library/libraryDb.ml +++ b/helm/ocaml/library/libraryDb.ml @@ -23,6 +23,8 @@ * http://helm.cs.unibo.it/ *) +(* $Id$ *) + open Printf ;; let instance = @@ -41,7 +43,6 @@ let file_scheme_RE = Pcre.regexp "^file://" let clean_owner_environment () = let dbd = instance () in - let owner = (Helm_registry.get "matita.owner") in let obj_tbl = MetadataTypes.obj_tbl () in let sort_tbl = MetadataTypes.sort_tbl () in let rel_tbl = MetadataTypes.rel_tbl () in