From 41ffd0d7e5a8e77d1d2d2440eb33af46b216ed91 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 10 Dec 2013 01:49:48 -0800 Subject: [PATCH] define macro primitives (such as make-syntactic-closure) in (picrin macro) --- src/macro.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/macro.c b/src/macro.c index 80d19587..1f566d16 100644 --- a/src/macro.c +++ b/src/macro.c @@ -639,7 +639,11 @@ pic_macro_identifier_eq_p(pic_state *pic) void pic_init_macro(pic_state *pic) { - 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); + 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) }