diff --git a/include/picrin.h b/include/picrin.h index 6756a648..2d14dc68 100644 --- a/include/picrin.h +++ b/include/picrin.h @@ -87,8 +87,7 @@ typedef struct { pic_sym sEQ, sLT, sLE, sGT, sGE, sNOT; pic_sym rDEFINE, rLAMBDA, rIF, rBEGIN, rQUOTE, rSETBANG; - pic_sym rDEFINE_SYNTAX, rDEFINE_MACRO; - pic_sym rLET_SYNTAX, rLETREC_SYNTAX; + pic_sym rDEFINE_SYNTAX, rDEFINE_MACRO, rLET_SYNTAX; pic_sym rDEFINE_LIBRARY, rIMPORT, rEXPORT; xhash syms; /* name to symbol */ diff --git a/src/state.c b/src/state.c index 6be7da78..9da1852c 100644 --- a/src/state.c +++ b/src/state.c @@ -131,7 +131,6 @@ pic_open(int argc, char *argv[], char **envp) register_renamed_symbol(pic, rDEFINE_SYNTAX, "define-syntax"); register_renamed_symbol(pic, rDEFINE_MACRO, "define-macro"); register_renamed_symbol(pic, rLET_SYNTAX, "let-syntax"); - register_renamed_symbol(pic, rLETREC_SYNTAX, "letrec-syntax"); register_renamed_symbol(pic, rDEFINE_LIBRARY, "define-library"); register_renamed_symbol(pic, rIMPORT, "import"); register_renamed_symbol(pic, rEXPORT, "export");