diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-21 11:36:33 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-21 11:36:33 +0000 |
| commit | 766fc2f8977e4aa33024d639e6b79b9b8895ca94 (patch) | |
| tree | cfd921aca7c55324a34f01dcb4a0511484cfb166 | |
| parent | d2484c049b4aaba817d9a7af7edf8d130f0e5043 (diff) | |
Protection contre Not_found
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2044 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 39e74dc44..420a4bf02 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -363,7 +363,11 @@ let _ = (function | [VARG_QUALID qid] -> fun () -> - let fullname = Nametab.locate_loaded_library qid in + let fullname = + try Nametab.locate_loaded_library qid + with Not_found -> + error ((Nametab.string_of_qualid qid)^" not loaded") + in without_mes_ambig Library.import_module fullname | _ -> bad_vernac_args "ImportModule") |