summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 14:42:31 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 14:42:31 +0000
commit8c494e99736a68a24d3004652c6f4aceb16d7ecf (patch)
treede3e7d8e8f642aff57070fd12347af4d89c2a600 /libguile/print.c
parentdee01b012cd5179b70a2e361ee08c364ed9f3314 (diff)
downloadguile-8c494e99736a68a24d3004652c6f4aceb16d7ecf.tar.gz
* Removed lots of deprecated stuff.
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);