define macro primitives (such as make-syntactic-closure) in (picrin macro)
This commit is contained in:
parent
fad425fcb9
commit
41ffd0d7e5
|
@ -639,7 +639,11 @@ pic_macro_identifier_eq_p(pic_state *pic)
|
|||
void
|
||||
pic_init_macro(pic_state *pic)
|
||||
{
|
||||
DEFLIBRARY(pic, "(picrin macro)")
|
||||
{
|
||||
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_eq_p);
|
||||
}
|
||||
ENDLIBRARY(pic)
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue