diff options
Diffstat (limited to 'libguile/macros.c')
-rw-r--r-- | libguile/macros.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/libguile/macros.c b/libguile/macros.c index 48286d890..03d366278 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -221,9 +221,15 @@ SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0, "Return the transformer of the macro @var{m}.") #define FUNC_NAME s_scm_macro_transformer { + SCM data; + SCM_VALIDATE_SMOB (1, m, macro); - return ((SCM_CLOSUREP (SCM_PACK (SCM_SMOB_DATA (m)))) ? - SCM_PACK(SCM_SMOB_DATA (m)) : SCM_BOOL_F); + data = SCM_PACK (SCM_SMOB_DATA (m)); + + if (SCM_CLOSUREP (data) || SCM_PROGRAM_P (data)) + return data; + else + return SCM_BOOL_F; } #undef FUNC_NAME |