diff options
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index b131c0a8d..4d951c3c5 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -135,15 +135,15 @@ SCM_DEFINE (scm_dynamic_wind, "dynamic-wind", 3, 0, 0, * smob. Objects of this type are pushed onto the dynwind chain. */ -#define SCM_GUARDSP(obj) SCM_SMOB_PREDICATE (tc16_guards, obj) +#define SCM_GUARDSP(obj) SCM_TYP16_PREDICATE (tc16_guards, obj) #define SCM_BEFORE_GUARD(obj) ((scm_guard_t) SCM_CELL_WORD (obj, 1)) #define SCM_AFTER_GUARD(obj) ((scm_guard_t) SCM_CELL_WORD (obj, 2)) #define SCM_GUARD_DATA(obj) ((void *) SCM_CELL_WORD (obj, 3)) -static long tc16_guards; +static scm_bits_t tc16_guards; static int -printguards (SCM exp, SCM port, scm_print_state *pstate) +guards_print (SCM exp, SCM port, scm_print_state *pstate) { scm_puts ("#<guards ", port); scm_intprint (SCM_UNPACK (SCM_CDR (exp)), 16, port); @@ -271,8 +271,8 @@ scm_dowinds (SCM to, long delta) void scm_init_dynwind () { - tc16_guards = scm_make_smob_type_mfpe ("guards", 0, - NULL, scm_free0, printguards, NULL); + tc16_guards = scm_make_smob_type ("guards", 0); + scm_set_smob_print (tc16_guards, guards_print); #ifndef SCM_MAGIC_SNARFER #include "libguile/dynwind.x" #endif |