diff options
| -rw-r--r-- | lib/envars.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index 3246c14786..867297a863 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 |