diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/print.c b/libguile/print.c index 12292f689..7586f2cc6 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -455,7 +455,7 @@ scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate) { SCM env = SCM_ENV (exp); SCM xenv = SCM_EXTEND_ENV (formals, SCM_EOL, env); - SCM src = scm_unmemocopy (SCM_CODE (exp), xenv); + SCM src = scm_i_unmemocopy_body (SCM_CODE (exp), xenv); ENTER_NESTED_DATA (pstate, exp, circref); scm_iprin1 (src, port, pstate); EXIT_NESTED_DATA (pstate); |