diff options
author | 2002-02-04 16:44:03 +0000 | |
---|---|---|
committer | 2002-02-04 16:44:03 +0000 | |
commit | e5685b6d12558549a2013cd7362313c13cbb2b06 (patch) | |
tree | f06b704b2c801bb28c818f71f55c5983562178eb /pretyping | |
parent | 7bd935c0bb4d62670ed6e84f1e59a94cd7df9152 (diff) |
exceptionmal ratrappee
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2451 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/retyping.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pretyping/retyping.ml b/pretyping/retyping.ml index c2f42b34e..a87354d65 100644 --- a/pretyping/retyping.ml +++ b/pretyping/retyping.ml @@ -55,8 +55,9 @@ let typeur sigma metamap = let (_,_,ty) = lookup_rel n env in lift n (body_of_type ty) | Var id -> - let (_,_,ty) = lookup_named id env in - (try body_of_type ty + (try + let (_,_,ty) = lookup_named id env in + body_of_type ty with Not_found -> anomaly ("type_of: variable "^(string_of_id id)^" unbound")) | Const c -> |