From 7f5a4c34a3436d27c78e9e6d55d4f6775d3acd00 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 7 Dec 2013 20:47:09 -0800 Subject: [PATCH] register and export to library functions defined by pic_defun --- src/codegen.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/codegen.c b/src/codegen.c index f79abb42..d8e008ff 100644 --- a/src/codegen.c +++ b/src/codegen.c @@ -4,6 +4,8 @@ #include "picrin/pair.h" #include "picrin/irep.h" #include "picrin/proc.h" +#include "picrin/lib.h" +#include "picrin/macro.h" #include "xhash/xhash.h" #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); idx = scope_global_define(pic, name); 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