diff options
author | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:39:08 +0000 |
---|---|---|
committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:39:08 +0000 |
commit | b9b1122ff82cd9e8bb9782e7c4c5d39bf0df7488 (patch) | |
tree | 53e928b97f5e355a69f17734af9d9c262ccf5052 /plugins/omega | |
parent | c25d1d8967dbdadbad85e22c50e1b63f6091e1fe (diff) |
Made Proofview.Goal.hyps a named_context.
There was really no point in having it be a named_context val. The tactics are not going to access the vm cache. Only vm_compute will.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17007 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/omega')
-rw-r--r-- | plugins/omega/coq_omega.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index 4d6f7b21f..26d252726 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -1792,7 +1792,7 @@ let destructure_hyps = in let hyps = Proofview.Goal.hyps gl in try (* type_of can raise exceptions *) - loop (Environ.named_context_of_val hyps) + loop hyps with e when Proofview.V82.catchable_exception e -> Proofview.tclZERO e end |