diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-30 09:15:15 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-30 09:15:15 +0000 |
commit | 843524cc2079e6fb23554eac366a87faf0d720f3 (patch) | |
tree | 4e2ee7e4d6aa66a0a1bfae6386b8b0f60c13e9bf /libguile/arbiters.c | |
parent | fbd485ba49663beaf82cf4564d4e9b5d900c4c26 (diff) | |
download | guile-843524cc2079e6fb23554eac366a87faf0d720f3.tar.gz |
Fix some typing issues wrt SCM/scm_bits_t.
Diffstat (limited to 'libguile/arbiters.c')
-rw-r--r-- | libguile/arbiters.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/arbiters.c b/libguile/arbiters.c index efab09848..85afed64d 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -63,9 +63,9 @@ static long scm_tc16_arbiter; -#define SCM_ARB_LOCKED(arb) ((SCM_UNPACK_CAR (arb)) & (1L << 16)) -#define SCM_LOCK_ARB(arb) SCM_SETCAR (arb, (SCM) (scm_tc16_arbiter | (1L << 16))); -#define SCM_UNLOCK_ARB(arb) SCM_SETCAR (arb, (SCM) scm_tc16_arbiter); +#define SCM_ARB_LOCKED(arb) ((SCM_CELL_WORD_0 (arb)) & (1L << 16)) +#define SCM_LOCK_ARB(arb) (SCM_SET_CELL_WORD_0 ((arb), scm_tc16_arbiter | (1L << 16))); +#define SCM_UNLOCK_ARB(arb) (SCM_SET_CELL_WORD_0 ((arb), scm_tc16_arbiter)); static int prinarb (SCM exp, SCM port, scm_print_state *pstate) @@ -84,7 +84,7 @@ SCM_DEFINE (scm_make_arbiter, "make-arbiter", 1, 0, 0, "Arbiters are a way to achieve process synchronization.") #define FUNC_NAME s_scm_make_arbiter { - SCM_RETURN_NEWSMOB (scm_tc16_arbiter, name); + SCM_RETURN_NEWSMOB (scm_tc16_arbiter, SCM_UNPACK (name)); } #undef FUNC_NAME |