Commit eeda3f93 authored by Pietro Abate's avatar Pietro Abate

[r2006-03-22 12:22:49 by afrisch] open_out => open_out_gen

Original author: afrisch
Date: 2006-03-22 12:22:49+00:00
parent 04ede954
......@@ -125,7 +125,7 @@ let compile_save verbose name src out =
set_hash c;
let pools = Value.extract_all () in
let oc = open_out out in
let oc = open_out_bin out in
output_string oc magic;
Marshal.to_channel oc (pools,c) [];
......@@ -149,7 +149,7 @@ let reg_types = ref true
let rec real_load src =
let ic =
try open_in src
try open_in_bin src
with Sys_error _ -> raise (CannotOpen src) in
try
let s = String.copy magic in
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment