From f3eaf2869e84c942d56a7fe0cc459d9943e4b059 Mon Sep 17 00:00:00 2001
From: aspiwack
Date: Tue, 18 Dec 2007 12:19:12 +0000
Subject: Nettoyage de code en vue de la release. Plus de Warning: Unused
 Variable, et plus de trucs useless qui traînaient par ma faute (y compris
 dans le noyau, la honte).

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

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 6bd11af9f6..218ba4150c 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -486,7 +486,7 @@ let pr_assumptionset env s =
       str "Section Variables:" ++
       (Environ.AssumptionSet.fold 
          (function Variable (id,typ ) -> 
-	    (fun b -> b++str (string_of_identifier id)
+	    (fun b -> b++str (string_of_id id)
 	               ++str " : "
 	               ++pr_ltype typ
 	               ++fnl ())
-- 
cgit v1.2.3