|
@@ -760,7 +760,7 @@ let generate com =
|
|
newline ctx;
|
|
newline ctx;
|
|
) (List.rev ctx.inits);
|
|
) (List.rev ctx.inits);
|
|
List.iter (generate_static ctx) (List.rev ctx.statics);
|
|
List.iter (generate_static ctx) (List.rev ctx.statics);
|
|
- let ch = open_out com.file in
|
|
|
|
|
|
+ let ch = open_out_bin com.file in
|
|
output_string ch (Buffer.contents ctx.buf);
|
|
output_string ch (Buffer.contents ctx.buf);
|
|
close_out ch;
|
|
close_out ch;
|
|
t()
|
|
t()
|