(* $Id$ * ---------------------------------------------------------------------- * *) (* auxiliary functions of general use *) let rec unix_call (f:unit->'a) : 'a = try f() with Unix.Unix_error (Unix.EINTR, _, _) -> unix_call f ;;