From b9b1122ff82cd9e8bb9782e7c4c5d39bf0df7488 Mon Sep 17 00:00:00 2001 From: aspiwack Date: Sat, 2 Nov 2013 15:39:08 +0000 Subject: 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 --- plugins/omega/coq_omega.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'plugins/omega') 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 -- cgit v1.2.3