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

add pic_define_noexport

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2014-09-16 00:21:24 +09:00
parent 597e000000
commit 7db18677ab
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
include/picrin.h
+2 -1
View File
@@ -143,7 +143,8 @@ void pic_close(pic_state *);
void pic_add_feature(pic_state *, const char *);
void pic_define(pic_state *, const char *, pic_value); /* automatic export */
void pic_define(pic_state *, const char *, pic_value);
void pic_define_noexport(pic_state *, const char *, pic_value);
void pic_defun(pic_state *, const char *, pic_func_t);
void pic_defvar(pic_state *, const char *, pic_value, struct pic_proc *);
vm.c
+8 -4
View File
@@ -405,7 +405,7 @@ pic_get_args(pic_state *pic, const char *format, ...)
}
void
pic_define(pic_state *pic, const char *name, pic_value val)
pic_define_noexport(pic_state *pic, const char *name, pic_value val)
{
pic_sym sym, rename;
@@ -417,11 +417,15 @@ pic_define(pic_state *pic, const char *name, pic_value val)
pic_warn(pic, "redefining global");
}
/* push to the global arena */
xh_put_int(&pic->globals, rename, &val);
}
/* export! */
pic_export(pic, sym);
void
pic_define(pic_state *pic, const char *name, pic_value val)
{
pic_define_noexport(pic, name, val);
pic_export(pic, pic_intern_cstr(pic, name));
}
pic_value