diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-12-19 03:35:51 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-12-19 03:35:51 +0000 |
commit | 8499074bcc098aef27925c52c4548f7987127c64 (patch) | |
tree | 7e823fb955e6770443cd9fe212275d0beab589e1 /libguile/macros.c | |
parent | 7f0a6a69464342dc601f2df99ae9d9c369c91bac (diff) | |
download | guile-8499074bcc098aef27925c52c4548f7987127c64.tar.gz |
* macros.c (scm_makacro, scm_makmacro, scm_makmmacro): Added
argument checking.
Diffstat (limited to 'libguile/macros.c')
-rw-r--r-- | libguile/macros.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/macros.c b/libguile/macros.c index 26b18cce6..51e2c4f79 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -56,6 +56,8 @@ scm_makacro (code) 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); @@ -70,6 +72,8 @@ scm_makmacro (code) 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)); @@ -84,6 +88,8 @@ scm_makmmacro (code) 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)); |