From 5865dad7bae73b13096a62e3657b02e13771524a Mon Sep 17 00:00:00 2001
From: notin
Date: Thu, 28 Sep 2006 17:44:35 +0000
Subject: Suppression des lignes vides dans l'affichage des scripts

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

diff --git a/parsing/tactic_printer.ml b/parsing/tactic_printer.ml
index e1cc8463c3..484b30e985 100644
--- a/parsing/tactic_printer.ml
+++ b/parsing/tactic_printer.ml
@@ -188,7 +188,7 @@ let print_treescript nochange sigma pf =
            (print_script nochange sigma) spfl )
     | Some(r,spfl) ->
         (if nochange then mt () else (pr_change pf.goal ++ fnl ())) ++
-	  pr_rule_dot r ++ fnl () ++
+	  pr_rule_dot r ++
 	  begin
 	    if List.length spfl > 1 then
 	      fnl ()  ++ 
-- 
cgit v1.2.3