X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaInit.ml;h=7658e7ab885660e5edd93a29a98730bf7c03e510;hb=d32efcc40e6de8a337e61864dab00305ba30b334;hp=c40f81dff1b54b60bef14f234dab188d56b75431;hpb=bfcde2b08d72f1392ed61164c67d199360f0397f;p=helm.git

diff --git a/matita/matita/matitaInit.ml b/matita/matita/matitaInit.ml
index c40f81dff..7658e7ab8 100644
--- a/matita/matita/matitaInit.ml
+++ b/matita/matita/matitaInit.ml
@@ -97,7 +97,6 @@ let initialize_db init_status =
   wants [ ConfigurationFile; CmdLine ] init_status;
   if not (already_configured [ Db ] init_status) then
     begin
-      LibraryDb.create_owner_environment ();
       Db::init_status
     end
   else
@@ -168,10 +167,9 @@ let parse_cmdline init_status =
     wants [Registry] init_status;
     let includes = ref [] in
     let default_includes = [ 
-      BuildTimeConf.stdlib_dir_devel;
-      BuildTimeConf.stdlib_dir_installed ; 
       BuildTimeConf.new_stdlib_dir_devel;
-      BuildTimeConf.new_stdlib_dir_installed ; 
+    (* CSC: no installed standard library!
+      BuildTimeConf.new_stdlib_dir_installed ; *)
     ] 
     in
     let absolutize s =
@@ -284,7 +282,3 @@ let parse_cmdline_and_configuration_file () =
 
 let initialize_environment () =
   status := initialize_environment !status
-
-let _ =
-  CicFix.init ()
-;;