if (error)
if (error) {
fail(char *format, ...){    int error;    va_list ap;#ifdef USE_REENTRANT_LIBC    R_STRERROR_INIT_R();#endif    error = errno;    fprintf(stderr, "%s: ", program);    va_start(ap, format);    vfprintf(stderr, format, ap);    va_end(ap);    if (error)#ifdef USE_REENTRANT_LIBC    R_STRERROR_R(errno);	fprintf(stderr, ": %s", r_strerror_r);#else	fprintf(stderr, ": %s", strerror(errno));#endif    putc('\n', stderr);    abort();    exit(1);}