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

s/pic_symbol_value/pic_sym_value/g

This commit is contained in:
Yuichi Nishiwaki 2014-04-05 02:21:07 +09:00
parent eb990b4399
commit 7386460253
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/macro.c
View File

@ -385,7 +385,7 @@ macroexpand_defmacro(pic_state *pic, pic_value expr, struct pic_senv *senv)
var = pic_car(pic, pic_cdr(pic, expr)); var = pic_car(pic, pic_cdr(pic, expr));
if (pic_pair_p(var)) { if (pic_pair_p(var)) {
/* FIXME: unhygienic */ /* FIXME: unhygienic */
val = pic_cons(pic, pic_symbol_value(pic->sLAMBDA), val = pic_cons(pic, pic_sym_value(pic->sLAMBDA),
pic_cons(pic, pic_cdr(pic, var), pic_cons(pic, pic_cdr(pic, var),
pic_cdr(pic, pic_cdr(pic, expr)))); pic_cdr(pic, pic_cdr(pic, expr))));
var = pic_car(pic, var); var = pic_car(pic, var);
@ -465,7 +465,7 @@ macroexpand_define(pic_state *pic, pic_value expr, struct pic_senv *senv, pic_va
pic_add_rename(pic, senv, sym); pic_add_rename(pic, senv, sym);
} }
return pic_cons(pic, pic_symbol_value(pic->sDEFINE), macroexpand_list(pic, pic_cdr(pic, expr), senv, assoc_box)); return pic_cons(pic, pic_sym_value(pic->sDEFINE), macroexpand_list(pic, pic_cdr(pic, expr), senv, assoc_box));
} }
static pic_value static pic_value
@ -532,7 +532,7 @@ macroexpand_node(pic_state *pic, pic_value expr, struct pic_senv *senv, pic_valu
return macroexpand(pic, pic_sc_ptr(expr)->expr, pic_sc_ptr(expr)->senv, assoc_box); return macroexpand(pic, pic_sc_ptr(expr)->expr, pic_sc_ptr(expr)->senv, assoc_box);
} }
case PIC_TT_SYMBOL: { case PIC_TT_SYMBOL: {
return pic_symbol_value(macroexpand_symbol(pic, pic_sym(expr), senv, assoc_box)); return pic_sym_value(macroexpand_symbol(pic, pic_sym(expr), senv, assoc_box));
} }
case PIC_TT_PAIR: { case PIC_TT_PAIR: {
pic_value car; pic_value car;
@ -642,7 +642,7 @@ pic_macro_include(pic_state *pic)
pic_get_args(pic, "*", &argc, &argv); pic_get_args(pic, "*", &argc, &argv);
/* FIXME unhygienic */ /* FIXME unhygienic */
body = pic_list1(pic, pic_symbol_value(pic->sBEGIN)); body = pic_list1(pic, pic_sym_value(pic->sBEGIN));
for (i = 0; i < argc; ++i) { for (i = 0; i < argc; ++i) {
const char *filename; const char *filename;
@ -673,7 +673,7 @@ pic_macro_gensym(pic_state *pic)
pic_get_args(pic, ""); pic_get_args(pic, "");
uniq = pic_gensym(pic, pic_intern_cstr(pic, skel)); uniq = pic_gensym(pic, pic_intern_cstr(pic, skel));
return pic_symbol_value(uniq); return pic_sym_value(uniq);
} }
static pic_value static pic_value
@ -785,7 +785,7 @@ er_macro_rename(pic_state *pic)
mac_env = pic_senv_ptr(pic_proc_cv_ref(pic, pic_get_proc(pic), 1)); mac_env = pic_senv_ptr(pic_proc_cv_ref(pic, pic_get_proc(pic), 1));
assoc_box = pic_proc_cv_ref(pic, pic_get_proc(pic), 2); assoc_box = pic_proc_cv_ref(pic, pic_get_proc(pic), 2);
return pic_symbol_value(macroexpand_symbol(pic, sym, mac_env, assoc_box)); return pic_sym_value(macroexpand_symbol(pic, sym, mac_env, assoc_box));
} }
static pic_value static pic_value
@ -870,7 +870,7 @@ ir_macro_inject(pic_state *pic)
use_env = pic_senv_ptr(pic_proc_cv_ref(pic, pic_get_proc(pic), 0)); use_env = pic_senv_ptr(pic_proc_cv_ref(pic, pic_get_proc(pic), 0));
assoc_box = pic_proc_cv_ref(pic, pic_get_proc(pic), 2); assoc_box = pic_proc_cv_ref(pic, pic_get_proc(pic), 2);
return pic_symbol_value(macroexpand_symbol(pic, sym, use_env, assoc_box)); return pic_sym_value(macroexpand_symbol(pic, sym, use_env, assoc_box));
} }
static pic_value static pic_value