From 5a4b200626300200ec34f4713940465cdc96bebb Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 21 Jun 2000 16:43:38 +0000
Subject: bug discharge STRUCTURE; FrozenState supprimmes dans les
 ClosedSection -> .vo plus petits

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

(limited to 'lib')

diff --git a/lib/system.ml b/lib/system.ml
index aed203b206..605cbca875 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -99,7 +99,7 @@ let open_trapping_failure open_fun name suffix =
 let try_remove f =
   try Sys.remove f
   with _ -> mSGNL [< 'sTR"Warning: " ; 'sTR"Could not remove file " ;
-                     'sTR f ; 'sTR" which is corrupted !!" >]
+                     'sTR f ; 'sTR" which is corrupted!" >]
 
 let marshal_out ch v = Marshal.to_channel ch v [Marshal.Closures]
 let marshal_in ch = Marshal.from_channel ch
-- 
cgit v1.2.3