diff options
| author | herbelin | 2003-11-04 14:00:23 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-04 14:00:23 +0000 |
| commit | f79b782abcdc24cb892c58e850fb91da977f7fd1 (patch) | |
| tree | 2df92d69f36bab059e80428173288241cdddef6a | |
| parent | 96f08bc4901867065e76b05f8dfe74436bf00ad2 (diff) | |
Pour eviter des anomalies au lieu d'erreur en mode traducteur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4791 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | translate/ppvernacnew.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index ff8f236764..79ba46576c 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -40,7 +40,11 @@ let pr_module r = | Qualid (loc,qid) -> Qualid (loc,make_qualid (fst (repr_qualid qid)) (id_of_string s)) in let (_,dir,_) = - Library.locate_qualified_library (snd (qualid_of_reference r)) in + try + Library.locate_qualified_library (snd (qualid_of_reference r)) + with _ -> + errorlabstrm "" (str"Translator cannot find " ++ Libnames.pr_reference r) + in let r = match List.rev (List.map string_of_id (repr_dirpath dir)) with | [ "Coq"; "Lists"; "List" ] -> update_ref "MonoList" | [ "Coq"; "Lists"; "PolyList" ] -> update_ref "List" |