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