diff options
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r-- | libguile/fluids.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c index b7e09c39c..bcac1f824 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -56,7 +56,7 @@ #include "libguile/validate.h" static volatile int n_fluids; -long scm_tc16_fluid; +scm_bits_t scm_tc16_fluid; SCM scm_make_initial_fluids () @@ -96,7 +96,7 @@ scm_copy_fluids (scm_root_state *root_state) } static int -print_fluid (SCM exp, SCM port, scm_print_state *pstate) +fluid_print (SCM exp, SCM port, scm_print_state *pstate) { scm_puts ("#<fluid ", port); scm_intprint ((int) SCM_FLUID_NUM (exp), 10, port); @@ -258,8 +258,8 @@ scm_internal_with_fluids (SCM fluids, SCM values, SCM (*cproc) (), void *cdata) void scm_init_fluids () { - scm_tc16_fluid = scm_make_smob_type_mfpe ("fluid", 0, - NULL, NULL, print_fluid, NULL); + scm_tc16_fluid = scm_make_smob_type ("fluid", 0); + scm_set_smob_print (scm_tc16_fluid, fluid_print); #ifndef SCM_MAGIC_SNARFER #include "libguile/fluids.x" #endif |