diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
commit | 8c494e99736a68a24d3004652c6f4aceb16d7ecf (patch) | |
tree | de3e7d8e8f642aff57070fd12347af4d89c2a600 /libguile/print.c | |
parent | dee01b012cd5179b70a2e361ee08c364ed9f3314 (diff) | |
download | guile-8c494e99736a68a24d3004652c6f4aceb16d7ecf.tar.gz |
* Removed lots of deprecated stuff.
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 3 |
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); |