diff options
| author | herbelin | 2001-09-19 15:13:09 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-19 15:13:09 +0000 |
| commit | b7194f41401f9f5ce1909b50a1c38e9b1f60b677 (patch) | |
| tree | 1bad7e1f8d5de468ae4e89525a73fec74ccb0e5c | |
| parent | 69b3a4294ff715516b808c2eea54c2ccad0f1c12 (diff) | |
Protection hd d'une liste vide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2002 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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) >] |