diff options
| author | herbelin | 2006-04-27 21:22:33 +0000 |
|---|---|---|
| committer | herbelin | 2006-04-27 21:22:33 +0000 |
| commit | 7b4b2dc4c80a6172692c321468edf46564ae40fb (patch) | |
| tree | 9a40669e20b2408294f719a60ef8ff830e5658b2 | |
| parent | 28003e8b3774932c2dd64ed07f8723a84cdb4596 (diff) | |
Message d'erreur plus informatif
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8754 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/xml/cic2acic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/xml/cic2acic.ml b/contrib/xml/cic2acic.ml index bac7ad7c64..caace56972 100644 --- a/contrib/xml/cic2acic.ml +++ b/contrib/xml/cic2acic.ml @@ -64,7 +64,7 @@ let get_uri_of_var v pvars = in let rec search_in_open_sections = function - [] -> Util.error "Variable not found" + [] -> Util.error ("Variable "^v^" not found") | he::tl as modules -> let dirpath = N.make_dirpath modules in if List.mem (N.id_of_string v) (D.last_section_hyps dirpath) then |