summaryrefslogtreecommitdiff
path: root/libguile/arbiters.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/arbiters.c')
-rw-r--r--libguile/arbiters.c2
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);