diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-08 21:25:31 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-08 23:13:07 +0100 |
commit | e779fef7eecb2637f1e8b4952a1bd018b8839346 (patch) | |
tree | 8eac6e2841ddcdb5d896faa5f76c1dbb145d795f /libguile/async.c | |
parent | a253eec010c6ec598cb67ad61f6e2f8991691142 (diff) | |
download | guile-e779fef7eecb2637f1e8b4952a1bd018b8839346.tar.gz |
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.
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 6 |
1 files 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, |