diff options
| author | jforest | 2006-06-06 15:45:58 +0000 |
|---|---|---|
| committer | jforest | 2006-06-06 15:45:58 +0000 |
| commit | 9e594d53c1b226718f443dd9981d9e3951b38a26 (patch) | |
| tree | 0e3a561f31c07eadf9075a58f6e2d0257809daf3 | |
| parent | 3541f4a48ec64c25a8d25458e0b0ebe8e6abbd99 (diff) | |
protecting an uncaught exception Not_found
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8901 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/funind/functional_principles_types.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/contrib/funind/functional_principles_types.ml b/contrib/funind/functional_principles_types.ml index fc5200202a..3f3f87966d 100644 --- a/contrib/funind/functional_principles_types.ml +++ b/contrib/funind/functional_principles_types.ml @@ -446,7 +446,10 @@ let make_scheme fas = let env = Global.env () and sigma = Evd.empty in let id_to_constr id = - Tacinterp.constr_of_id env id + try + Tacinterp.constr_of_id env id + with Not_found -> + Util.error ("Cannot find "^ string_of_id id) in let funs = List.map (fun (_,f,_) -> id_to_constr f) fas in let first_fun = destConst (List.hd funs) in |