mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* macros.c (scm_makacro, scm_makmacro, scm_makmmacro): Added

Browse source 
argument checking.
This commit is contained in:
Mikael Djurfeldt 1998-12-19 03:35:51 +00:00
parent 7f0a6a6946
commit 8499074bcc
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/macros.c
View file

@ -56,6 +56,8 @@ scm_makacro (code)
SCM code; SCM code;
{ {
register SCM z; register SCM z;
SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (code)),
code, SCM_ARG1, s_makacro);
SCM_NEWCELL (z); SCM_NEWCELL (z);
SCM_SETCDR (z, code); SCM_SETCDR (z, code);
SCM_SETCAR (z, scm_tc16_macro); SCM_SETCAR (z, scm_tc16_macro);
@ -70,6 +72,8 @@ scm_makmacro (code)
SCM code; SCM code;
{ {
register SCM z; register SCM z;
SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (code)),
code, SCM_ARG1, s_makmacro);
SCM_NEWCELL (z); SCM_NEWCELL (z);
SCM_SETCDR (z, code); SCM_SETCDR (z, code);
SCM_SETCAR (z, scm_tc16_macro | (1L << 16)); SCM_SETCAR (z, scm_tc16_macro | (1L << 16));
@ -84,6 +88,8 @@ scm_makmmacro (code)
SCM code; SCM code;
{ {
register SCM z; register SCM z;
SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (code)),
code, SCM_ARG1, s_makmmacro);
SCM_NEWCELL (z); SCM_NEWCELL (z);
SCM_SETCDR (z, code); SCM_SETCDR (z, code);
SCM_SETCAR (z, scm_tc16_macro | (2L << 16)); SCM_SETCAR (z, scm_tc16_macro | (2L << 16));