Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
eeda3f93
Commit
eeda3f93
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[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
Changes
1
Hide whitespace changes
Inline
Side-by-side
driver/librarian.ml
View file @
eeda3f93
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment