summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c
index 6204a8738..e207f411a 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -507,7 +507,6 @@ scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate)
scm_putc ('>', port);
}
break;
- case scm_tc7_substring:
case scm_tc7_string:
if (SCM_WRITINGP (pstate))
{
@@ -730,7 +729,7 @@ scm_ipruk (char *hdr, SCM ptr, SCM port)
{
scm_puts ("#<unknown-", port);
scm_puts (hdr, port);
- if (SCM_CELLP (ptr))
+ if (scm_cellp (ptr))
{
scm_puts (" (0x", port);
scm_intprint (SCM_CELL_WORD_0 (ptr), 16, port);