summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-12 17:51:49 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-12 17:51:49 +0000
commit0bc908e7c448940099612b3bd1d10356652241ee (patch)
tree56a8c81c588bf537409099a1be2d225685eb5d4b
parent74a426ae25fb30522d8b91e5c14b63fa52daf1dd (diff)
downloadguile-0bc908e7c448940099612b3bd1d10356652241ee.tar.gz
* arbiters.c (SCM_ARB_LOCKED): Use SCM_CARBITS.
-rw-r--r--libguile/arbiters.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/arbiters.c b/libguile/arbiters.c
index b3eeb1f30..ec77331b3 100644
--- a/libguile/arbiters.c
+++ b/libguile/arbiters.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996, 1997 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996, 1997, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -63,7 +63,7 @@
static long scm_tc16_arbiter;
-#define SCM_ARB_LOCKED(arb) (((SCMWORD) SCM_CAR(arb)) & (1L << 16))
+#define SCM_ARB_LOCKED(arb) ((SCM_CARBITS (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);