From 0236bc683d288f64089819064030fb8e93bd3781 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 8 Dec 2009 21:27:26 +0100 Subject: [PATCH] fix SCM_CELL macro usage in continuations.[ch] * libguile/continuations.h (SCM_CONTREGS): * libguile/continuations.c (continuation_print): Fix SCM_CELL macro usage. --- libguile/continuations.c | 2 +- libguile/continuations.h | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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)\