summaryrefslogtreecommitdiff
path: root/libguile/macros.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/macros.c')
-rw-r--r--libguile/macros.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/macros.c b/libguile/macros.c
index b3fea9391..aa6b9cd1c 100644
--- a/libguile/macros.c
+++ b/libguile/macros.c
@@ -157,9 +157,8 @@ SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0,
/* here we rely on knowledge of how psyntax represents macro bindings, but
hey, there is code out there that calls this function, and expects to get
a procedure in return... */
- if (scm_is_pair (SCM_MACRO_BINDING (m))
- && scm_is_true (scm_procedure_p (scm_car (SCM_MACRO_BINDING (m)))))
- return scm_car (SCM_MACRO_BINDING (m));
+ if (scm_is_true (scm_procedure_p (SCM_MACRO_BINDING (m))))
+ return SCM_MACRO_BINDING (m);
else
return SCM_BOOL_F;
}