void pic_warnf(pic_state *pic, const char *fmt, ...) { va_list ap; pic_value err_line; va_start(ap, fmt); err_line = pic_xvformat(pic, fmt, ap); va_end(ap); xfprintf(pic, pic_stderr(pic)->file, "warn: %s\n", pic_str_cstr(pic, pic_str_ptr(pic_car(pic, err_line)))); }
void pic_warnf(pic_state *pic, const char *fmt, ...) { va_list ap; pic_value err; va_start(ap, fmt); err = pic_vstrf_value(pic, fmt, ap); va_end(ap); pic_fprintf(pic, pic_stderr(pic), "warn: %s\n", pic_str(pic, err)); }