From 058234dd9c4d67240b9ca1c7f0ebfeed8037c2de Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 28 Nov 2009 00:22:47 +0100 Subject: [PATCH] remove evaluator-specific code from macros.c * libguile/macros.c (macro_print): No special printing for macros whose code is an interpreted procedure. --- libguile/macros.c | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/libguile/macros.c b/libguile/macros.c index 7d60a8ea1..970a41d54 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -75,16 +75,6 @@ macro_print (SCM macro, SCM port, scm_print_state *pstate) scm_putc (' ', port); scm_iprin1 (scm_macro_name (macro), port, pstate); - if (SCM_CLOSUREP (code) && SCM_PRINT_SOURCE_P) - { - SCM formals = SCM_CLOSURE_FORMALS (code); - SCM env = SCM_ENV (code); - SCM xenv = SCM_EXTEND_ENV (formals, SCM_EOL, env); - SCM src = scm_i_unmemocopy_body (SCM_CODE (code), xenv); - scm_putc (' ', port); - scm_iprin1 (src, port, pstate); - } - if (SCM_MACRO_IS_EXTENDED (macro)) { scm_putc (' ', port);