From c3ca728a87a57c6e6a2404d32cebc907a0857599 Mon Sep 17 00:00:00 2001 From: barras Date: Mon, 5 Nov 2001 16:51:14 +0000 Subject: Oops git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2159 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/mltop.ml4 | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'toplevel') 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) >] -- cgit v1.2.3