diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-04-02 14:29:33 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-04-02 14:30:00 +0200 |
| commit | afaeab91f8206986dbbb7f245d61e4a0d185050c (patch) | |
| tree | 06f10e0223b33cf8a1943f34cd0082b6855151db /toplevel | |
| parent | e08cd1682347a002cb46eadddea61b2fc1fcf006 (diff) | |
Make "Add LoadPath" behave accordingly to its documentation.
"Add LoadPath" is documented as acting as -Q, not as -I-as. Note that
"Add Rec LoadPath" should be used when compatibility with 8.4 matters.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 5d4f5a461..cfa9bddc6 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -892,11 +892,10 @@ let vernac_set_used_variables e = let expand filename = Envars.expand_path_macros ~warn:(fun x -> msg_warning (str x)) filename -let vernac_add_loadpath isrec pdir ldiropt = +let vernac_add_loadpath implicit pdir ldiropt = let pdir = expand pdir in let alias = Option.default Nameops.default_root_prefix ldiropt in - (if isrec then Mltop.add_rec_path else Mltop.add_path) - ~unix_path:pdir ~coq_root:alias ~implicit:true + Mltop.add_rec_path ~unix_path:pdir ~coq_root:alias ~implicit let vernac_remove_loadpath path = Loadpath.remove_load_path (expand path) |