diff options
| author | herbelin | 2000-01-07 22:22:20 +0000 |
|---|---|---|
| committer | herbelin | 2000-01-07 22:22:20 +0000 |
| commit | 92aed12e291b1efee31f331dff98386527bb69f0 (patch) | |
| tree | d2f60b9db4524441050f41324a3073e9460ee846 /pretyping/evarutil.ml | |
| parent | 805b6b2776866acd2cf94d8ce72eabd7cebbefe1 (diff) | |
Correction pbs liés aux evar
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@265 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarutil.ml')
| -rw-r--r-- | pretyping/evarutil.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index af42d3cd46..53bcbc8ce5 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -167,8 +167,8 @@ let restrict_hyps isevars c = c let has_ise sigma t = - try let _ = whd_ise sigma t in true - with UserError _ -> false + try let _ = whd_ise sigma t in false + with Uninstantiated_evar _ -> true (* We try to instanciate the evar assuming the body won't depend * on arguments that are not Rels or VARs, or appearing several times. |