conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove read-error? and file-error? and add error-object-type instead

This commit is contained in:
Yuichi Nishiwaki 2014-09-17 00:49:37 +09:00
parent 854f83a247
commit 05e76c0467
1 changed files with 4 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
error.c
View File

@ -266,37 +266,13 @@ pic_error_error_object_irritants(pic_state *pic)
} }
static pic_value static pic_value
pic_error_read_error_p(pic_state *pic) pic_error_error_object_type(pic_state *pic)
{ {
pic_value v;
struct pic_error *e; struct pic_error *e;
pic_get_args(pic, "o", &v); pic_get_args(pic, "e", &e);
if (! pic_error_p(v)) { return pic_sym_value(e->type);
return pic_false_value();
}
e = pic_error_ptr(v);
return pic_bool_value(e->type == pic->sREAD);
}
static pic_value
pic_error_file_error_p(pic_state *pic)
{
pic_value v;
struct pic_error *e;
pic_get_args(pic, "o", &v);
if (! pic_error_p(v)) {
return pic_false_value();
}
e = pic_error_ptr(v);
return pic_bool_value(e->type == pic->sFILE);
} }
void void
@ -310,6 +286,5 @@ pic_init_error(pic_state *pic)
pic_defun(pic, "error-object?", pic_error_error_object_p); pic_defun(pic, "error-object?", pic_error_error_object_p);
pic_defun(pic, "error-object-message", pic_error_error_object_message); pic_defun(pic, "error-object-message", pic_error_error_object_message);
pic_defun(pic, "error-object-irritants", pic_error_error_object_irritants); pic_defun(pic, "error-object-irritants", pic_error_error_object_irritants);
pic_defun(pic, "read-error?", pic_error_read_error_p); pic_defun(pic, "error-object-type", pic_error_error_object_type);
pic_defun(pic, "file-error?", pic_error_file_error_p);
} }