From f5778254f73e483d755402a5b85c7843770191ca Mon Sep 17 00:00:00 2001
From: vsiles
Date: Tue, 17 Apr 2007 15:22:11 +0000
Subject:  Rajout du mot Fix dans le printer

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

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index ccd3f6e210..e48343858a 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -243,7 +243,7 @@ let print_pure_constr csr =
       print_string "end"; 
       close_box()
   | Fix ((t,i),(lna,tl,bl)) ->
-      print_string "("; print_int i; print_string ")"; 
+      print_string "Fix("; print_int i; print_string ")"; 
       print_cut();
       open_vbox 0;
       let rec print_fix () =
-- 
cgit v1.2.3