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

use find_library inside in_library

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 05:40:03 -08:00
parent 38aa2d5880
commit afe630bc42
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/lib.c
View File

@ -28,15 +28,15 @@ pic_make_library(pic_state *pic, pic_value name)
} }
void void
pic_in_library(pic_state *pic, pic_value name) pic_in_library(pic_state *pic, pic_value spec)
{ {
pic_value v; struct pic_lib *lib;
v = pic_assoc(pic, name, pic->lib_tbl); lib = pic_find_library(pic, spec);
if (pic_false_p(v)) { if (! lib) {
pic_error(pic, "library not found"); pic_error(pic, "library not found");
} }
pic->lib = pic_lib_ptr(pic_cdr(pic, v)); pic->lib = lib;
} }
struct pic_lib * struct pic_lib *