s/pic_null_syntactic_env/pic_null_syntactic_environment/g
This commit is contained in:
parent
b9125caa3d
commit
708f348674
|
@ -36,7 +36,7 @@ struct pic_sc {
|
|||
#define pic_senv_p(v) (pic_type(v) == PIC_TT_SENV)
|
||||
#define pic_senv_ptr(v) ((struct pic_senv *)pic_ptr(v))
|
||||
|
||||
struct pic_senv *pic_null_syntactic_env(pic_state *);
|
||||
struct pic_senv *pic_null_syntactic_environment(pic_state *);
|
||||
|
||||
pic_sym pic_add_rename(pic_state *, struct pic_senv *, pic_sym);
|
||||
bool pic_find_rename(pic_state *, struct pic_senv *, pic_sym, pic_sym * /* = NULL */);
|
||||
|
|
|
@ -85,7 +85,7 @@ pic_init_core(pic_state *pic)
|
|||
pic_deflibrary ("(scheme base)") {
|
||||
|
||||
/* load core syntaces */
|
||||
pic->lib->senv = pic_null_syntactic_env(pic);
|
||||
pic->lib->senv = pic_null_syntactic_environment(pic);
|
||||
pic_put_rename(pic, pic->lib->senv, pic->sDEFINE, pic->sDEFINE);
|
||||
pic_put_rename(pic, pic->lib->senv, pic->sSETBANG, pic->sSETBANG);
|
||||
pic_put_rename(pic, pic->lib->senv, pic->sQUOTE, pic->sQUOTE);
|
||||
|
|
|
@ -24,7 +24,7 @@ pic_make_library(pic_state *pic, pic_value name)
|
|||
return lib;
|
||||
}
|
||||
|
||||
senv = pic_null_syntactic_env(pic);
|
||||
senv = pic_null_syntactic_environment(pic);
|
||||
|
||||
lib = (struct pic_lib *)pic_obj_alloc(pic, sizeof(struct pic_lib), PIC_TT_LIB);
|
||||
lib->senv = senv;
|
||||
|
|
|
@ -12,7 +12,7 @@
|
|||
#include "picrin/box.h"
|
||||
|
||||
struct pic_senv *
|
||||
pic_null_syntactic_env(pic_state *pic)
|
||||
pic_null_syntactic_environment(pic_state *pic)
|
||||
{
|
||||
struct pic_senv *senv;
|
||||
|
||||
|
|
Loading…
Reference in New Issue