summaryrefslogtreecommitdiff
path: root/libguile/macros.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-02-09 14:37:30 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-02-09 14:37:30 +0000
commit88c927e9507e99fc9f298049937fb0a1b92fa1a1 (patch)
treeac963bbe04cfbd101d1aedfe14e138acf6bd7401 /libguile/macros.c
parenta6dfbbbbce7994deb4697b1697dc6ccee08c2877 (diff)
downloadguile-88c927e9507e99fc9f298049937fb0a1b92fa1a1.tar.gz
* macros.c (scm_macro_name, scm_macro_transformer): Use
SCM_SMOB_DATA instead of SCM_CDR. Provided by Martin Grabmueller. Thanks!
Diffstat (limited to 'libguile/macros.c')
-rw-r--r--libguile/macros.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/macros.c b/libguile/macros.c
index fd6ae53b2..1d5aadd18 100644
--- a/libguile/macros.c
+++ b/libguile/macros.c
@@ -148,22 +148,23 @@ SCM_DEFINE (scm_macro_type, "macro-type", 1, 0, 0,
SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0,
(SCM m),
- "")
+ "Return the name of the macro @var{m}.")
#define FUNC_NAME s_scm_macro_name
{
SCM_VALIDATE_SMOB (1,m,macro);
- return scm_procedure_name (SCM_CDR (m));
+ return scm_procedure_name (SCM_PACK (SCM_SMOB_DATA (m)));
}
#undef FUNC_NAME
SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0,
(SCM m),
- "")
+ "Return the transformer of the macro @var{m}.")
#define FUNC_NAME s_scm_macro_transformer
{
SCM_VALIDATE_SMOB (1,m,macro);
- return SCM_CLOSUREP (SCM_CDR (m)) ? SCM_CDR (m) : SCM_BOOL_F;
+ return ((SCM_CLOSUREP (SCM_PACK (SCM_SMOB_DATA (m)))) ?
+ SCM_PACK(SCM_SMOB_DATA (m)) : SCM_BOOL_F);
}
#undef FUNC_NAME