diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/system.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |