diff options
| author | msozeau | 2010-01-26 16:51:00 +0000 |
|---|---|---|
| committer | msozeau | 2010-01-26 16:51:00 +0000 |
| commit | 06bd5357554ce06079b33288d3b9be0e68b44302 (patch) | |
| tree | ba65d05cb68197642070aceaa913659b1ae02e24 /pretyping | |
| parent | 9a9aada110be18fc88a7559b9dce05d66edf156a (diff) | |
Quick fix for references to section variables unbound in the current
environment during unification. Should be checked earlier.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12692 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 9156dfa9e2..d26195efc8 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -177,7 +177,7 @@ let use_evars_pattern_unification flags = let expand_key env = function | Some (ConstKey cst) -> constant_opt_value env cst - | Some (VarKey id) -> named_body id env + | Some (VarKey id) -> (try named_body id env with Not_found -> None) | Some (RelKey _) -> None | None -> None |