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 3992bc45b..6c44d59db 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -655,7 +655,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) ? "#<primitive-generic " : "#<primitive-procedure ", port); - scm_puts (scm_i_symbol_chars (SCM_SNAME (exp)), port); + scm_puts (scm_i_symbol_chars (SCM_SUBR_NAME (exp)), port); scm_putc ('>', port); break; |