From f79b782abcdc24cb892c58e850fb91da977f7fd1 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 4 Nov 2003 14:00:23 +0000
Subject: 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
---
 translate/ppvernacnew.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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"
-- 
cgit v1.2.3