diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
commit | e841c3e0c006a4c80d873f93cb512f0ec71a5705 (patch) | |
tree | a464d2eb9ca225d04d034b40e8b029efce1ea323 /libguile/print.c | |
parent | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (diff) | |
download | guile-e841c3e0c006a4c80d873f93cb512f0ec71a5705.tar.gz |
Smob-related creanup.
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/print.c b/libguile/print.c index 64dc6657e..a07d61fe6 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1079,12 +1079,12 @@ SCM_DEFINE (scm_write_char, "write-char", 1, 1, 0, * escaped to Scheme and thus has to be freed by the GC. */ -long scm_tc16_port_with_ps; +scm_bits_t scm_tc16_port_with_ps; /* Print exactly as the port itself would */ static int -print_port_with_ps (SCM obj, SCM port, scm_print_state *pstate) +port_with_ps_print (SCM obj, SCM port, scm_print_state *pstate) { obj = SCM_PORT_WITH_PS_PORT (obj); return scm_ptobs[SCM_PTOBNUM (obj)].print (obj, port, pstate); @@ -1146,7 +1146,7 @@ scm_init_print () /* Don't want to bind a wrapper class in GOOPS, so pass 0 as arg1. */ scm_tc16_port_with_ps = scm_make_smob_type (0, 0); scm_set_smob_mark (scm_tc16_port_with_ps, scm_markcdr); - scm_set_smob_print (scm_tc16_port_with_ps, print_port_with_ps); + scm_set_smob_print (scm_tc16_port_with_ps, port_with_ps_print); #ifndef SCM_MAGIC_SNARFER #include "libguile/print.x" |