summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-08 21:25:31 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-08 23:13:07 +0100
commite779fef7eecb2637f1e8b4952a1bd018b8839346 (patch)
tree8eac6e2841ddcdb5d896faa5f76c1dbb145d795f /libguile/async.c
parenta253eec010c6ec598cb67ad61f6e2f8991691142 (diff)
downloadguile-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.c6
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,