summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/print.c b/libguile/print.c
index 026718652..7603ad9d9 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -348,7 +348,7 @@ taloop:
print_circref (port, pstate, exp);
break;
macros:
- if (SCM_FALSEP (scm_closure_p (SCM_CDR (exp))))
+ if (!SCM_CLOSUREP (SCM_CDR (exp)))
goto prinmacro;
case scm_tcs_closures:
/* The user supplied print closure procedure must handle
@@ -369,8 +369,8 @@ taloop:
{
/* Printing a macro. */
prinmacro:
- name = scm_procedure_name (SCM_CDR (exp));
- if (SCM_FALSEP (scm_closure_p (SCM_CDR (exp))))
+ name = scm_macro_name (exp);
+ if (!SCM_CLOSUREP (SCM_CDR (exp)))
{
code = 0;
scm_gen_puts (scm_regular_string, "#<primitive-",