place define-macro syntax in (picrin macro) library

This commit is contained in:
Yuichi Nishiwaki 2014-02-13 14:59:17 +09:00
parent e5a84e3f4c
commit f32754c0f9
2 changed files with 5 additions and 2 deletions

View File

@ -90,7 +90,6 @@ pic_init_core(pic_state *pic)
pic_export(pic, pic_intern_cstr(pic, "lambda"));
pic_export(pic, pic_intern_cstr(pic, "if"));
pic_export(pic, pic_intern_cstr(pic, "begin"));
pic_export(pic, pic_intern_cstr(pic, "define-macro"));
pic_export(pic, pic_intern_cstr(pic, "define-syntax"));
pic_init_bool(pic); DONE;

View File

@ -598,7 +598,6 @@ pic_core_syntactic_env(pic_state *pic)
register_core_syntax(pic, senv, "lambda");
register_core_syntax(pic, senv, "if");
register_core_syntax(pic, senv, "begin");
register_core_syntax(pic, senv, "define-macro");
register_core_syntax(pic, senv, "define-syntax");
return senv;
@ -894,6 +893,11 @@ pic_init_macro(pic_state *pic)
pic_defmacro(pic, "include", pic_proc_new(pic, pic_macro_include));
pic_deflibrary ("(picrin macro)") {
/* export define-macro syntax */
xh_put_int(pic->lib->senv->name, pic->sDEFINE_MACRO, pic->sDEFINE_MACRO);
pic_export(pic, pic->sDEFINE_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);