From 2116da4220acde3fdf11ac0ef0100e0166729bcd Mon Sep 17 00:00:00 2001 From: Pierre Weis Date: Thu, 28 Dec 2000 13:07:42 +0000 Subject: Getting rid of obsolete boolean operators & and or git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3359 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/win32unix/unix.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'otherlibs/win32unix/unix.ml') diff --git a/otherlibs/win32unix/unix.ml b/otherlibs/win32unix/unix.ml index 4bacb36cb..25cc960ec 100644 --- a/otherlibs/win32unix/unix.ml +++ b/otherlibs/win32unix/unix.ml @@ -178,11 +178,11 @@ external unsafe_write : file_descr -> string -> int -> int -> int = "unix_write" let read fd buf ofs len = - if len < 0 or ofs + len > String.length buf + if len < 0 || ofs + len > String.length buf then invalid_arg "Unix.read" else unsafe_read fd buf ofs len let write fd buf ofs len = - if len < 0 or ofs + len > String.length buf + if len < 0 || ofs + len > String.length buf then invalid_arg "Unix.write" else unsafe_write fd buf ofs len @@ -502,19 +502,19 @@ external unsafe_sendto : = "unix_sendto" "unix_sendto_native" let recv fd buf ofs len flags = - if len < 0 or ofs + len > String.length buf + if len < 0 || ofs + len > String.length buf then invalid_arg "Unix.recv" else unsafe_recv fd buf ofs len flags let recvfrom fd buf ofs len flags = - if len < 0 or ofs + len > String.length buf + if len < 0 || ofs + len > String.length buf then invalid_arg "Unix.recvfrom" else unsafe_recvfrom fd buf ofs len flags let send fd buf ofs len flags = - if len < 0 or ofs + len > String.length buf + if len < 0 || ofs + len > String.length buf then invalid_arg "Unix.send" else unsafe_send fd buf ofs len flags let sendto fd buf ofs len flags addr = - if len < 0 or ofs + len > String.length buf + if len < 0 || ofs + len > String.length buf then invalid_arg "Unix.sendto" else unsafe_sendto fd buf ofs len flags addr -- cgit v1.2.3-70-g09d2