From b50f5fc54fdd037859aa9eb5aa44128ec1b0dbf4 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Fri, 18 Jul 2014 11:50:08 +0900 Subject: [PATCH] remove sLETREC_SYNTAX --- include/picrin.h | 3 +-- src/init.c | 1 - src/macro.c | 3 --- src/state.c | 1 - 4 files changed, 1 insertion(+), 7 deletions(-) diff --git a/include/picrin.h b/include/picrin.h index 2406e48f..6756a648 100644 --- a/include/picrin.h +++ b/include/picrin.h @@ -80,8 +80,7 @@ typedef struct { pic_sym sDEFINE, sLAMBDA, sIF, sBEGIN, sQUOTE, sSETBANG; pic_sym sQUASIQUOTE, sUNQUOTE, sUNQUOTE_SPLICING; - pic_sym sDEFINE_SYNTAX, sDEFINE_MACRO; - pic_sym sLET_SYNTAX, sLETREC_SYNTAX; + pic_sym sDEFINE_SYNTAX, sDEFINE_MACRO, sLET_SYNTAX; pic_sym sDEFINE_LIBRARY, sIMPORT, sEXPORT; pic_sym sCONS, sCAR, sCDR, sNILP; pic_sym sADD, sSUB, sMUL, sDIV, sMINUS; diff --git a/src/init.c b/src/init.c index 4fdba1e0..c6667a3b 100644 --- a/src/init.c +++ b/src/init.c @@ -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; diff --git a/src/macro.c b/src/macro.c index 636a968e..964a9589 100644 --- a/src/macro.c +++ b/src/macro.c @@ -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); } diff --git a/src/state.c b/src/state.c index cb01c754..6be7da78 100644 --- a/src/state.c +++ b/src/state.c @@ -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");