From 3633ff4e952fd3fcb2c0375194d8c34e930867f3 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 2 Sep 2008 22:24:11 -0700 Subject: [PATCH] print compiled macros correctly * libguile/macros.c (macro_print): Print macros whose code is a program as non-primitive. (Already, primitive-macro? would return #f.) --- libguile/macros.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libguile/macros.c b/libguile/macros.c index db279ec7e..48286d890 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -28,6 +28,7 @@ #include "libguile/deprecation.h" #include "libguile/validate.h" +#include "libguile/programs.h" #include "libguile/macros.h" #include "libguile/private-options.h" @@ -44,7 +45,7 @@ macro_print (SCM macro, SCM port, scm_print_state *pstate) || scm_is_false (scm_printer_apply (SCM_PRINT_CLOSURE, macro, port, pstate))) { - if (!SCM_CLOSUREP (code)) + if (!SCM_CLOSUREP (code) && !SCM_PROGRAM_P (code)) scm_puts ("#