From 0c37eb2501f7331dbab6450a4469d6c8885d92f5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 18 Jun 2010 19:50:42 +0000
Subject: Quick fix for having clenv debug printer working in trunk.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13168 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/clenv.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index 8b4b41219b..a36fae8924 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -32,7 +32,7 @@ open Coercion.Default
 let pf_env = Refiner.pf_env
 let pf_hyps = Refiner.pf_hyps
 let pf_type_of gls c  = Typing.type_of (pf_env gls) gls.sigma c
-let pf_concl = Tacmach.pf_concl
+let pf_concl gls = Goal.V82.concl (Refiner.project gls) (sig_it gls)
 
 (******************************************************************)
 (* Clausal environments *)
-- 
cgit v1.2.3