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

remove sLETREC_SYNTAX

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2014-07-18 11:50:08 +09:00
parent 0a849affde
commit b50f5fc54f
4 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/init.c
-1
View File
@@ -76,7 +76,6 @@ pic_init_core(pic_state *pic)
pic_define_syntactic_keyword(pic, pic->lib->senv, pic->sBEGIN, pic->rBEGIN);
pic_define_syntactic_keyword(pic, pic->lib->senv, pic->sDEFINE_SYNTAX, pic->rDEFINE_SYNTAX);
pic_define_syntactic_keyword(pic, pic->lib->senv, pic->sLET_SYNTAX, pic->rLET_SYNTAX);
pic_define_syntactic_keyword(pic, pic->lib->senv, pic->sLETREC_SYNTAX, pic->rLETREC_SYNTAX);
pic_init_bool(pic); DONE;
pic_init_pair(pic); DONE;
src/macro.c
-3
View File
@@ -481,9 +481,6 @@ macroexpand_node(pic_state *pic, pic_value expr, struct pic_senv *senv)
else if (tag == pic->rLET_SYNTAX) {
return macroexpand_let_syntax(pic, expr, senv);
}
/* else if (tag == pic->sLETREC_SYNTAX) { */
/* return macroexpand_letrec_syntax(pic, expr, senv); */
/* } */
else if (tag == pic->rLAMBDA) {
return macroexpand_lambda(pic, expr, senv);
}
src/state.c
-1
View File
@@ -97,7 +97,6 @@ pic_open(int argc, char *argv[], char **envp)
register_core_symbol(pic, sDEFINE_SYNTAX, "define-syntax");
register_core_symbol(pic, sDEFINE_MACRO, "define-macro");
register_core_symbol(pic, sLET_SYNTAX, "let-syntax");
register_core_symbol(pic, sLETREC_SYNTAX, "letrec-syntax");
register_core_symbol(pic, sDEFINE_LIBRARY, "define-library");
register_core_symbol(pic, sIMPORT, "import");
register_core_symbol(pic, sEXPORT, "export");