mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

remove evaluator-specific code from macros.c

Browse source 
* libguile/macros.c (macro_print): No special printing for macros
  whose code is an interpreted procedure.
This commit is contained in:
Andy Wingo 2009-11-28 00:22:47 +01:00
parent 9d019f9be0
commit 058234dd9c
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/macros.c
View file

@ -75,16 +75,6 @@ macro_print (SCM macro, SCM port, scm_print_state *pstate)
scm_putc (' ', port); scm_putc (' ', port);
scm_iprin1 (scm_macro_name (macro), port, pstate); 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)) if (SCM_MACRO_IS_EXTENDED (macro))
{ {
scm_putc (' ', port); scm_putc (' ', port);