diff options
Diffstat (limited to 'libguile/arbiters.c')
-rw-r--r-- | libguile/arbiters.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/arbiters.c b/libguile/arbiters.c index ec77331b3..d1be6d18e 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -63,7 +63,7 @@ static long scm_tc16_arbiter; -#define SCM_ARB_LOCKED(arb) ((SCM_CARBITS (arb)) & (1L << 16)) +#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); |