diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-10-03 01:34:05 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-10-03 01:34:05 +0000 |
| commit | e910de203242c623ba91be94b9e5198ae1b1b73a (patch) | |
| tree | 94de488d079d524cf30ebf3f0cb678fe9f52d3b1 /tools/ocaml299to3.ml | |
| parent | 55035286038641202e15ad055479b8a1f8869d77 (diff) | |
uniformize ui + process implementations with scrapelabels
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3838 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools/ocaml299to3.ml')
| -rw-r--r-- | tools/ocaml299to3.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/ocaml299to3.ml b/tools/ocaml299to3.ml index 45273e440..b1dca8daa 100644 --- a/tools/ocaml299to3.ml +++ b/tools/ocaml299to3.ml @@ -111,8 +111,8 @@ let convert_file name = end; if !modified then begin let backup = name ^ ".bak" in - if Sys.file_exists backup then Sys.remove backup; - Sys.rename name backup; + if Sys.file_exists backup then Sys.remove name + else Sys.rename name backup; let oc = open_out name in Buffer.output_buffer oc output_buffer; close_out oc |