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

s/pic_null_syntactic_env/pic_null_syntactic_environment/g

This commit is contained in:
Yuichi Nishiwaki 2014-04-05 03:50:38 +09:00
parent b9125caa3d
commit 708f348674
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/picrin/macro.h
View File

@ -36,7 +36,7 @@ struct pic_sc {
#define pic_senv_p(v) (pic_type(v) == PIC_TT_SENV) #define pic_senv_p(v) (pic_type(v) == PIC_TT_SENV)
#define pic_senv_ptr(v) ((struct pic_senv *)pic_ptr(v)) #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); 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 */); bool pic_find_rename(pic_state *, struct pic_senv *, pic_sym, pic_sym * /* = NULL */);

2
src/init.c
View File

@ -85,7 +85,7 @@ pic_init_core(pic_state *pic)
pic_deflibrary ("(scheme base)") { pic_deflibrary ("(scheme base)") {
/* load core syntaces */ /* 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->sDEFINE, pic->sDEFINE);
pic_put_rename(pic, pic->lib->senv, pic->sSETBANG, pic->sSETBANG); pic_put_rename(pic, pic->lib->senv, pic->sSETBANG, pic->sSETBANG);
pic_put_rename(pic, pic->lib->senv, pic->sQUOTE, pic->sQUOTE); pic_put_rename(pic, pic->lib->senv, pic->sQUOTE, pic->sQUOTE);

2
src/lib.c
View File

@ -24,7 +24,7 @@ pic_make_library(pic_state *pic, pic_value name)
return lib; 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 = (struct pic_lib *)pic_obj_alloc(pic, sizeof(struct pic_lib), PIC_TT_LIB);
lib->senv = senv; lib->senv = senv;

2
src/macro.c
View File

@ -12,7 +12,7 @@
#include "picrin/box.h" #include "picrin/box.h"
struct pic_senv * struct pic_senv *
pic_null_syntactic_env(pic_state *pic) pic_null_syntactic_environment(pic_state *pic)
{ {
struct pic_senv *senv; struct pic_senv *senv;