Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Put parenthesis around arguments to please the compilation 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7516 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Nicolas Pouillard 2006-07-17 19:30:18 +00:00
parent 1afbc5b2cf
commit 1f8ca2dc7b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
byterun/io.c
View File

@ -534,7 +534,7 @@ CAMLprim value caml_ml_flush_partial(value vchannel)
struct channel * channel = Channel(vchannel);
int res;
if (channel->fd == -1) CAMLreturn Val_true;
if (channel->fd == -1) CAMLreturn(Val_true);
Lock(channel);
res = caml_flush_partial(channel);
Unlock(channel);
@ -546,7 +546,7 @@ CAMLprim value caml_ml_flush(value vchannel)
CAMLparam1 (vchannel);
struct channel * channel = Channel(vchannel);
if (channel->fd == -1) CAMLreturn Val_unit;
if (channel->fd == -1) CAMLreturn(Val_unit);
Lock(channel);
caml_flush(channel);
Unlock(channel);