From e9100d33377eb2bb958ecba6049c6a46f4e9db7f Mon Sep 17 00:00:00 2001
From: barras
Date: Mon, 11 Feb 2002 16:31:44 +0000
Subject: substitution et pattern modulo let

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2466 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/printer.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index dcabd954c3..af0bcf1b28 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -91,14 +91,14 @@ let gentermpr_core at_top env t =
 
 let prterm_env_at_top env = gentermpr_core true env
 let prterm_env env = gentermpr_core false env
-let prterm = prterm_env empty_env
+let prterm = prterm_env (Global.env())
 
 let prtype_env env typ = prterm_env env typ
-let prtype = prtype_env empty_env
+let prtype = prtype_env (Global.env())
 
 let prjudge_env env j =
   (prterm_env env j.uj_val, prterm_env env j.uj_type)
-let prjudge = prjudge_env empty_env
+let prjudge = prjudge_env (Global.env())
 
 let fprterm_env a =
   warning "Fw printing not implemented, use CCI printing 1"; prterm_env a
-- 
cgit v1.2.3