SCM code;
{
register SCM z;
+ SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (code)),
+ code, SCM_ARG1, s_makacro);
SCM_NEWCELL (z);
SCM_SETCDR (z, code);
SCM_SETCAR (z, scm_tc16_macro);
SCM code;
{
register SCM z;
+ SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (code)),
+ code, SCM_ARG1, s_makmacro);
SCM_NEWCELL (z);
SCM_SETCDR (z, code);
SCM_SETCAR (z, scm_tc16_macro | (1L << 16));
SCM code;
{
register SCM z;
+ SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (code)),
+ code, SCM_ARG1, s_makmmacro);
SCM_NEWCELL (z);
SCM_SETCDR (z, code);
SCM_SETCAR (z, scm_tc16_macro | (2L << 16));