diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/libguile/print.c b/libguile/print.c index 715037b67..aef575d80 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -789,17 +789,6 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) } EXIT_NESTED_DATA (pstate); break; - case scm_tc7_gsubr: - { - SCM name = scm_symbol_to_string (SCM_SUBR_NAME (exp)); - scm_puts (SCM_SUBR_GENERIC (exp) - ? "#<primitive-generic " - : "#<primitive-procedure ", - port); - scm_lfwrite_str (name, port); - scm_putc ('>', port); - break; - } case scm_tc7_port: { register long i = SCM_PTOBNUM (exp); |