From e779fef7eecb2637f1e8b4952a1bd018b8839346 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 8 Dec 2009 21:25:31 +0100 Subject: [PATCH] fix SCM_CELL_* macro usage in async.c * libguile/async.c (ASYNC_GOT_IT, SET_ASYNC_GOT_IT, ASYNC_THUNK): Fix SCM_CELL_* macro usage. --- libguile/async.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libguile/async.c b/libguile/async.c index 7ec8b6e1d..ddb2a215f 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -87,9 +87,9 @@ static scm_t_bits tc16_async; #define SCM_ASYNCP(X) SCM_TYP16_PREDICATE (tc16_async, X) #define VALIDATE_ASYNC(pos, a) SCM_MAKE_VALIDATE_MSG(pos, a, ASYNCP, "user async") -#define ASYNC_GOT_IT(X) (SCM_CELL_WORD_0 (X) >> 16) -#define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 ((X), SCM_TYP16 (X) | ((V) << 16))) -#define ASYNC_THUNK(X) SCM_CELL_OBJECT_1 (X) +#define ASYNC_GOT_IT(X) (SCM_SMOB_FLAGS (X)) +#define SET_ASYNC_GOT_IT(X, V) (SCM_SET_SMOB_FLAGS ((X), ((V)))) +#define ASYNC_THUNK(X) SCM_SMOB_OBJECT_1 (X) SCM_DEFINE (scm_async, "async", 1, 0, 0, -- 2.20.1