diff options
| author |  clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-04-20 14:20:16 +0000 |
|---|---|---|
| committer | clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-04-20 14:20:16 +0000 |
| commit | 22675ad99fb0dcbfb994a598a4a05e599ccb9780 (patch) | |
| tree | 74165c39ee643052c1ee852a985bb3564b67e1cb /proofs | |
| parent | e7df266ccb32d2ff5cf0a1c566e37fec78bdc9e5 (diff) | |
Amélioration message d'erreur quand échec unification
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5691 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index d5df3bc95..d3c835be4 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -629,7 +629,7 @@ let clenv_merge with_types metas evars clenv = (clenv_wtactic (mimick_evar f (Array.length cl) evn) clenv) - | _ -> error "w_Unify") + | _ -> raise ex(********* error "w_Unify" *)) end | _ -> anomaly "clenv_resrec")) |