diff options
author | Damien Doligez <damien.doligez-inria.fr> | 2004-01-16 15:24:03 +0000 |
---|---|---|
committer | Damien Doligez <damien.doligez-inria.fr> | 2004-01-16 15:24:03 +0000 |
commit | 776a8d59b77947bddc5203ad323697e26725f264 (patch) | |
tree | 5700391e7badd7e635700ffcae24b1b9ee282249 /toplevel/expunge.ml | |
parent | 111747916aa51bcc4fe14dec1730bf17ac4933e2 (diff) | |
download | ocaml-776a8d59b77947bddc5203ad323697e26725f264.tar.gz |
suppression support MacOS9
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6074 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'toplevel/expunge.ml')
-rw-r--r-- | toplevel/expunge.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/toplevel/expunge.ml b/toplevel/expunge.ml index 1b52d1bc64..5debb41243 100644 --- a/toplevel/expunge.ml +++ b/toplevel/expunge.ml @@ -47,11 +47,6 @@ let main () = Bytesections.read_toc ic; let toc = Bytesections.toc() in let pos_first_section = Bytesections.pos_first_section ic in - if Sys.os_type = "MacOS" then begin - (* Create output as a text file for bytecode scripts *) - let c = open_out_gen [Open_wronly; Open_creat] 0o777 output_name in - close_out c - end; let oc = open_out_gen [Open_wronly; Open_creat; Open_trunc; Open_binary] 0o777 output_name in |