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

register and export to library functions defined by pic_defun

This commit is contained in:
Yuichi Nishiwaki 2013-12-07 20:47:09 -08:00
parent e71c5abfdb
commit 7f5a4c34a3
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/codegen.c
View File

@ -4,6 +4,8 @@
#include "picrin/pair.h" #include "picrin/pair.h"
#include "picrin/irep.h" #include "picrin/irep.h"
#include "picrin/proc.h" #include "picrin/proc.h"
#include "picrin/lib.h"
#include "picrin/macro.h"
#include "xhash/xhash.h" #include "xhash/xhash.h"
#define FALLTHROUGH ((void)0) #define FALLTHROUGH ((void)0)
@ -931,6 +933,9 @@ pic_defun(pic_state *pic, const char *name, pic_func_t cfunc)
proc = pic_proc_new_cfunc(pic, cfunc); proc = pic_proc_new_cfunc(pic, cfunc);
idx = scope_global_define(pic, name); idx = scope_global_define(pic, name);
pic->globals[idx] = pic_obj_value(proc); pic->globals[idx] = pic_obj_value(proc);
xh_put(pic->lib->senv->tbl, name, pic_intern_cstr(pic, name));
xh_put(pic->lib->exports, name, pic_intern_cstr(pic, name));
} }
void void