summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c2
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;