diff options
| author | Enrico Tassi | 2019-02-20 13:24:34 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2019-02-20 13:24:34 +0100 |
| commit | 756b978dfee0e0c103a5244af21115233ad96358 (patch) | |
| tree | 937b01faf9e2aba41c1396f544d5d2a9ab3ec426 /lib | |
| parent | c39482e63aacf47359d8f76c44c2d851c7cfb9a5 (diff) | |
| parent | 49ed4b7d3a01b9c383bb99fc26a7b34a7a711fdf (diff) | |
Merge PR #9560: [coqlib] Remove `-boot` option for setting the coqlib
Reviewed-by: SkySkimmer
Ack-by: ejgallego
Reviewed-by: gares
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/envars.ml | 4 | ||||
| -rw-r--r-- | lib/envars.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index 8a75d9a552..0f4670688b 100644 --- a/lib/envars.ml +++ b/lib/envars.ml @@ -110,11 +110,11 @@ let set_user_coqlib path = coqlib := Some path (** coqlib is now computed once during coqtop initialization *) -let set_coqlib ~boot ~fail = +let set_coqlib ~fail = match !coqlib with | Some _ -> () | None -> - let lib = if boot then coqroot else guess_coqlib fail in + let lib = guess_coqlib fail in coqlib := Some lib let coqlib () = Option.default "" !coqlib diff --git a/lib/envars.mli b/lib/envars.mli index 21365c48f6..ebf86d0650 100644 --- a/lib/envars.mli +++ b/lib/envars.mli @@ -39,7 +39,7 @@ val datadir : unit -> string val configdir : unit -> string (** [set_coqlib] must be runned once before any access to [coqlib] *) -val set_coqlib : boot:bool -> fail:(string -> string) -> unit +val set_coqlib : fail:(string -> string) -> unit (** [set_user_coqlib path] sets the coqlib directory explicitedly. *) val set_user_coqlib : string -> unit |