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 +-
 proofs/proofview.mli | 2 +-
 proofs/tacmach.ml    | 5 +----
 3 files changed, 3 insertions(+), 6 deletions(-)

(limited to 'proofs')

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 =
diff --git a/proofs/proofview.mli b/proofs/proofview.mli
index c9296e694f..0504efea57 100644
--- a/proofs/proofview.mli
+++ b/proofs/proofview.mli
@@ -288,7 +288,7 @@ module Goal : sig
   type t
 
   val concl : t -> Term.constr
-  val hyps : t -> Environ.named_context_val
+  val hyps : t -> Context.named_context
   val env : t -> Environ.env
   val sigma : t -> Evd.evar_map
 
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml
index 4928ffcfe8..ae0d1039b6 100644
--- a/proofs/tacmach.ml
+++ b/proofs/tacmach.ml
@@ -215,7 +215,6 @@ module New = struct
 
   let pf_global id gl =
     let hyps = Proofview.Goal.hyps gl in
-    let hyps = Environ.named_context_of_val hyps in
     Constrintern.construct_reference hyps id
 
 
@@ -225,7 +224,6 @@ module New = struct
 
   let pf_ids_of_hyps gl =
     let hyps = Proofview.Goal.hyps gl in
-    let hyps = Environ.named_context_of_val hyps in
     ids_of_named_context hyps
 
   let pf_get_new_id id gl =
@@ -234,7 +232,6 @@ module New = struct
 
   let pf_get_hyp id gl =
     let hyps = Proofview.Goal.hyps gl in
-    let hyps = Environ.named_context_of_val hyps in
     let sign =
       try Context.lookup_named id hyps
       with Not_found -> Errors.error ("No such hypothesis: " ^ (string_of_id id))
@@ -252,6 +249,6 @@ module New = struct
 
   let pf_last_hyp gl =
     let hyps = Proofview.Goal.hyps gl in
-    List.hd (Environ.named_context_of_val hyps)
+    List.hd hyps
 
 end
-- 
cgit v1.2.3