From 4c0053c66442ec60db46b7b800ff2c1c8bf07a64 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 28 May 2001 08:39:26 +0000
Subject: nettoyage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1765 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/correctness/psyntax.ml4 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'contrib/correctness/psyntax.ml4')

diff --git a/contrib/correctness/psyntax.ml4 b/contrib/correctness/psyntax.ml4
index a91bceb8e1..e9bb7c88f9 100644
--- a/contrib/correctness/psyntax.ml4
+++ b/contrib/correctness/psyntax.ml4
@@ -140,7 +140,11 @@ let ast_zwf_zero loc =
 
 (* program -> Coq AST *)
 
-let bdize = Termast.ast_of_constr true (Global.env ())
+let bdize c = 
+  let env = 
+    Global.env_of_context (Pcicenv.cci_sign_of Prename.empty_ren Penv.empty)
+  in
+  Termast.ast_of_constr true env c
 
 let rec coqast_of_program loc = function
   | Var id -> let s = string_of_id id in <:ast< ($VAR $s) >>
@@ -151,7 +155,7 @@ let rec coqast_of_program loc = function
 		   (function Term t -> coqast_of_program t.loc t.desc
 		      | _ -> invalid_arg "coqast_of_program") l
       in
-	<:ast< (APPLIST $f ($LIST $args)) >>
+      <:ast< (APPLIST $f ($LIST $args)) >>
   | Expression c -> bdize c
   | _ -> invalid_arg "coqast_of_program"
 
-- 
cgit v1.2.3