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

define macro primitives (such as make-syntactic-closure) in (picrin macro)

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 01:49:48 -08:00
parent fad425fcb9
commit 41ffd0d7e5
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/macro.c
View File

@ -638,8 +638,12 @@ pic_macro_identifier_eq_p(pic_state *pic)
void void
pic_init_macro(pic_state *pic) pic_init_macro(pic_state *pic)
{
DEFLIBRARY(pic, "(picrin macro)")
{ {
pic_defun(pic, "make-syntactic-closure", pic_macro_make_sc); pic_defun(pic, "make-syntactic-closure", pic_macro_make_sc);
pic_defun(pic, "identifier?", pic_macro_identifier_p); pic_defun(pic, "identifier?", pic_macro_identifier_p);
pic_defun(pic, "identifier=?", pic_macro_identifier_eq_p); pic_defun(pic, "identifier=?", pic_macro_identifier_eq_p);
} }
ENDLIBRARY(pic)
}