106 |
/* cmm: this has SCM_ prefix because SCM_MAKE_VALIDATE expects it. |
/* cmm: this has SCM_ prefix because SCM_MAKE_VALIDATE expects it. |
107 |
this is ugly. */ |
this is ugly. */ |
108 |
#define SCM_ASYNCP(X) SCM_TYP16_PREDICATE (tc16_async, X) |
#define SCM_ASYNCP(X) SCM_TYP16_PREDICATE (tc16_async, X) |
109 |
#define VALIDATE_ASYNC(pos, a) SCM_MAKE_VALIDATE(pos, a, ASYNCP) |
#define VALIDATE_ASYNC(pos, a) SCM_MAKE_VALIDATE_MSG(pos, a, ASYNCP, "user async") |
110 |
|
|
111 |
#define ASYNC_GOT_IT(X) (SCM_CELL_WORD_0 (X) >> 16) |
#define ASYNC_GOT_IT(X) (SCM_CELL_WORD_0 (X) >> 16) |
112 |
#define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 ((X), SCM_TYP16 (X) | ((V) << 16))) |
#define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 ((X), SCM_TYP16 (X) | ((V) << 16))) |