diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-25 11:01:03 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-25 11:01:03 +0000 |
| commit | d1ca2c64230419163f7ad80436e83bd74fdb7b95 (patch) | |
| tree | c3536f600b54e7c3db4bcc042354b4c43522f15e /libguile/async.c | |
| parent | 31535422f5aa27febb86fbbf1030c2e2aa35e9f1 (diff) | |
| download | guile-d1ca2c64230419163f7ad80436e83bd74fdb7b95.tar.gz | |
* Some more work to get rid of SCM_LENGTH
* Eliminated some cell type bit fiddling
* Various minor changes
Diffstat (limited to 'libguile/async.c')
| -rw-r--r-- | libguile/async.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/async.c b/libguile/async.c index 7c16cdddb..62008a39b 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -121,7 +121,7 @@ static long tc16_async; #define VALIDATE_ASYNC(pos,a) SCM_MAKE_VALIDATE(pos, a, ASYNCP) #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_CELL_WORD_0 (X) & ((1 << 16) - 1)) | ((V) << 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) |