let
handle_unix
f
x
=
try
f
x
with
Unix_error
(
_
,
s
,
mes
) ->
system_error
EIO
(
F
.
name
^
": "
^
s
)
mes
let
disk
=
handle_unix
(
Unix
.
openfile
F
.
name
[
Unix
.
O_RDWR
]) 0