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