From 61ccbc81a2f3b4662ed4a2bad9d07d2003dda3a2 Mon Sep 17 00:00:00 2001
From: glondu
Date: Thu, 17 Sep 2009 15:58:14 +0000
Subject: Delete trailing whitespaces in all *.{v,ml*} files

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

(limited to 'proofs/tactic_debug.ml')

diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml
index 6674d04ea9..ea8ab5b625 100644
--- a/proofs/tactic_debug.ml
+++ b/proofs/tactic_debug.ml
@@ -68,11 +68,11 @@ let skip = ref 0
 
 (* Prints the run counter *)
 let run ini =
-  if not ini then 
+  if not ini then
     for i=1 to 2 do
       print_char (Char.chr 8);print_char (Char.chr 13)
     done;
-  msg (str "Executed expressions: " ++ int (!allskip - !skip) ++ 
+  msg (str "Executed expressions: " ++ int (!allskip - !skip) ++
        fnl() ++ fnl())
 
 (* Prints the prompt *)
@@ -168,7 +168,7 @@ let db_matching_failure debug =
 let db_eval_failure debug s =
   if debug <> DebugOff & !skip = 0 then
     let s = str "message \"" ++ s ++ str "\"" in
-    msgnl 
+    msgnl
       (str "This rule has failed due to \"Fail\" tactic (" ++
        s ++ str ", level 0)!" ++ fnl() ++ str "Let us try the next one...")
 
-- 
cgit v1.2.3