diff options
| -rw-r--r-- | toplevel/mltop.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/mltop.ml4 b/toplevel/mltop.ml4 index 51271b510d..3e97b30f70 100644 --- a/toplevel/mltop.ml4 +++ b/toplevel/mltop.ml4 @@ -166,7 +166,7 @@ let add_rec_path dir coq_dirpath = List.iter (fun lpe -> add_ml_dir (fst lpe)) dirs; List.iter Library.add_load_path_entry dirs; if coq_dirpath <> [] then Nametab.push_library_root (List.hd coq_dirpath) - else List.iter (fun (_, cp) -> Nametab.push_library_root (List.hd cp)) dirs + else List.iter (fun (_, cp) -> if cp <> [] then Nametab.push_library_root (List.hd cp)) dirs end else wARNING [< 'sTR ("Cannot open " ^ dir) >] |