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

add eval error handling

This commit is contained in:
Yuichi Nishiwaki 2014-07-27 13:57:15 +09:00
parent e258529e8a
commit fd8330cca3
1 changed files with 6 additions and 1 deletions

7
src/eval.c
View File

@ -19,10 +19,15 @@ static pic_value
pic_eval_eval(pic_state *pic) pic_eval_eval(pic_state *pic)
{ {
pic_value program, spec; pic_value program, spec;
struct pic_lib *lib;
pic_get_args(pic, "oo", &program, &spec); pic_get_args(pic, "oo", &program, &spec);
return pic_eval(pic, program, pic_find_library(pic, spec)); lib = pic_find_library(pic, spec);
if (lib == NULL) {
pic_errorf(pic, "no library found: ~s", spec);
}
return pic_eval(pic, program, lib);
} }
void void