diff options
| author | Michael Livshin <mlivshin@bigfoot.com> | 2000-04-05 15:28:28 +0000 |
|---|---|---|
| committer | Michael Livshin <mlivshin@bigfoot.com> | 2000-04-05 15:28:28 +0000 |
| commit | e94e3f21d68575cded1b03fb07a66ae622b321e6 (patch) | |
| tree | 36417b66be7fd1c0104d9279879b1b88fb9bc7ac /libguile/async.h | |
| parent | 843e4e9d17afbf6cc05dbb94d58f5e49c060a9ee (diff) | |
| download | guile-e94e3f21d68575cded1b03fb07a66ae622b321e6.tar.gz | |
* async.[ch]: unexpose low-level async access macros (thanks to
Dirk Herrmann).
* validate.h: move async validation macros to async.c (nobody else
needs them anyway), and rename them.
Diffstat (limited to 'libguile/async.h')
| -rw-r--r-- | libguile/async.h | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/libguile/async.h b/libguile/async.h index 7e191d221..39d5868d7 100644 --- a/libguile/async.h +++ b/libguile/async.h @@ -51,13 +51,6 @@ -#define SCM_ASYNCP(X) (SCM_NIMP(X) && (scm_tc16_async == SCM_GCTYP16 (X))) - -#define SCM_ASYNC_GOT_IT(X) (SCM_CELL_WORD_0 (X) >> 16) -#define SCM_SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 (X, (SCM_CELL_WORD_0 (X) & ((1 << 16) - 1)) | ((V) << 16))) -#define SCM_ASYNC_THUNK(X) SCM_CELL_OBJECT_1 (X) - - extern unsigned int scm_mask_ints; extern SCM scm_gc_async; |