diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-11-28 00:22:47 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-12-01 21:00:25 +0100 |
| commit | 058234dd9c4d67240b9ca1c7f0ebfeed8037c2de (patch) | |
| tree | 6ee75662a2206bd187a1505151667063bfe11952 /libguile/macros.c | |
| parent | 9d019f9be0a1a7d3aaa507c9996cd5097da53875 (diff) | |
| download | guile-058234dd9c4d67240b9ca1c7f0ebfeed8037c2de.tar.gz | |
remove evaluator-specific code from macros.c
* libguile/macros.c (macro_print): No special printing for macros
whose code is an interpreted procedure.
Diffstat (limited to 'libguile/macros.c')
| -rw-r--r-- | libguile/macros.c | 10 |
1 files changed, 0 insertions, 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); |