add pic_define_noexport
This commit is contained in:
parent
597e000000
commit
7db18677ab
|
@ -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 *);
|
||||
|
||||
|
|
12
vm.c
12
vm.c
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue