Experimental file commited by mistake, sorry.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11806 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/envars.ml b/lib/envars.ml
index 3246c1478..867297a86 100644
--- a/lib/envars.ml
+++ b/lib/envars.ml
@@ -20,13 +20,14 @@ let guess_coqlib () =
     then Coq_config.coqlib
     else 
       let prefix = Filename.dirname (Filename.dirname Sys.executable_name) in
-      let coqlib = if !Flags.boot || Coq_config.local then prefix else 
+      let coqlib = if Coq_config.local then prefix else 
 	List.fold_left Filename.concat prefix ["lib";"coq"] in
 	if Sys.file_exists (Filename.concat coqlib file) then coqlib else
 	  Util.error "cannot guess a path for Coq libraries; please use -coqlib option"
 	  
 let coqlib () = 
-  if !Flags.coqlib_spec then !Flags.coqlib else guess_coqlib ()
+  if !Flags.coqlib_spec then !Flags.coqlib else
+    (if !Flags.boot then Coq_config.coqsrc else guess_coqlib ())
 
 let path_to_list p =
   let sep = if Sys.os_type = "Win32" then ';' else ':' in