diff options
| author | letouzey | 2013-03-15 18:47:11 +0000 |
|---|---|---|
| committer | letouzey | 2013-03-15 18:47:11 +0000 |
| commit | a3f82d0d498a81612618f39481ed829e857afd3c (patch) | |
| tree | 00e61185612eb50f9205b86f26ebaf5a7e7ca772 /plugins | |
| parent | 2f8bc98ab583a7259e167cd6bf3bce36aa33ada6 (diff) | |
Extract_env : correct exceptions mentionned in a try ... with
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16306 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/extraction/extract_env.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/extract_env.ml b/plugins/extraction/extract_env.ml index a64cc3d705..add5428b5c 100644 --- a/plugins/extraction/extract_env.ml +++ b/plugins/extraction/extract_env.ml @@ -545,7 +545,7 @@ let rec locate_ref = function let mpo = try Some (Nametab.locate_module q) with Not_found -> None and ro = try Some (Smartlocate.global_with_alias r) - with Not_found | UserError _ -> None + with Nametab.GlobalizationError _ | UserError _ -> None in match mpo, ro with | None, None -> Nametab.error_global_not_found q |