diff --git a/libguile/continuations.c b/libguile/continuations.c index 7013e3d66..aeff62e0c 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -57,7 +57,7 @@ continuation_print (SCM obj, SCM port, scm_print_state *state SCM_UNUSED) scm_puts ("#num_stack_items, 10, port); scm_puts (" @ ", port); - scm_uintprint (SCM_CELL_WORD_1 (obj), 16, port); + scm_uintprint (SCM_SMOB_DATA_1 (obj), 16, port); scm_putc ('>', port); return 1; } diff --git a/libguile/continuations.h b/libguile/continuations.h index 8f7e38eba..a04c53f2c 100644 --- a/libguile/continuations.h +++ b/libguile/continuations.h @@ -69,7 +69,7 @@ typedef struct #define SCM_CONTINUATIONP(x) SCM_TYP16_PREDICATE (scm_tc16_continuation, x) -#define SCM_CONTREGS(x) ((scm_t_contregs *) SCM_CELL_WORD_1 (x)) +#define SCM_CONTREGS(x) ((scm_t_contregs *) SCM_SMOB_DATA_1 (x)) #define SCM_CONTINUATION_LENGTH(x) (SCM_CONTREGS (x)->num_stack_items) #define SCM_SET_CONTINUATION_LENGTH(x, n)\