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

add 'define-macro' core syntax

This commit is contained in:
Yuichi Nishiwaki 2013-11-26 08:41:01 -08:00
parent ddbc2c83a2
commit 3d1f74d8f5
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
include/picrin/macro.h
View File

@ -17,7 +17,8 @@ struct pic_syntax {
PIC_STX_QUOTE, PIC_STX_QUOTE,
PIC_STX_LAMBDA, PIC_STX_LAMBDA,
PIC_STX_IF, PIC_STX_IF,
PIC_STX_BEGIN PIC_STX_BEGIN,
PIC_STX_DEFMACRO
} kind; } kind;
pic_sym sym; pic_sym sym;
}; };

1
src/state.c
View File

@ -132,6 +132,7 @@ pic_open(int argc, char *argv[], char **envp)
register_core_syntax(pic, PIC_STX_LAMBDA, "lambda"); register_core_syntax(pic, PIC_STX_LAMBDA, "lambda");
register_core_syntax(pic, PIC_STX_IF, "if"); register_core_syntax(pic, PIC_STX_IF, "if");
register_core_syntax(pic, PIC_STX_BEGIN, "begin"); register_core_syntax(pic, PIC_STX_BEGIN, "begin");
register_core_syntax(pic, PIC_STX_DEFMACRO, "define-macro");
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
pic_init_core(pic); pic_init_core(pic);