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
---
 proofs/proofview.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs/proofview.ml')

diff --git a/proofs/proofview.ml b/proofs/proofview.ml
index bdddf310dc..823082aced 100644
--- a/proofs/proofview.ml
+++ b/proofs/proofview.ml
@@ -686,7 +686,7 @@ module Goal = struct
 
   let env { env=env } = env
   let sigma { sigma=sigma } = sigma
-  let hyps { hyps=hyps } = hyps
+  let hyps { hyps=hyps } = Environ.named_context_of_val hyps
   let concl { concl=concl } = concl
 
   let lift s =
-- 
cgit v1.2.3