diff options
author | 2001-11-05 16:51:14 +0000 | |
---|---|---|
committer | 2001-11-05 16:51:14 +0000 | |
commit | c3ca728a87a57c6e6a2404d32cebc907a0857599 (patch) | |
tree | 1df54c7a566329ff342fc32cd251b5bff0029f2f /toplevel | |
parent | b91f60aab99980b604dc379b4ca62f152315c841 (diff) |
Oops
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2159 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/mltop.ml4 | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/toplevel/mltop.ml4 b/toplevel/mltop.ml4 index 6f2679c8c..3fc937724 100644 --- a/toplevel/mltop.ml4 +++ b/toplevel/mltop.ml4 @@ -151,8 +151,7 @@ let add_path dir coq_dirpath = if exists_dir dir then begin add_ml_dir dir; - Library.add_load_path_entry (dir,coq_dirpath); - Nametab.push_library_root coq_dirpath + Library.add_load_path_entry (dir,coq_dirpath) end else wARNING [< 'sTR ("Cannot open " ^ dir) >] @@ -175,9 +174,7 @@ let add_rec_path dir coq_dirpath = let dirs = map_succeed convert_dirs dirs in begin List.iter (fun lpe -> add_ml_dir (fst lpe)) dirs; - List.iter Library.add_load_path_entry dirs; - if prefix <> [] then Nametab.push_library_root coq_dirpath - else List.iter (fun (_, cp) -> Nametab.push_library_root cp) dirs + List.iter Library.add_load_path_entry dirs end else wARNING [< 'sTR ("Cannot open " ^ dir) >] |