summaryrefslogtreecommitdiff
path: root/libguile/arbiters.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-03-30 09:15:15 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-03-30 09:15:15 +0000
commit843524cc2079e6fb23554eac366a87faf0d720f3 (patch)
tree4e2ee7e4d6aa66a0a1bfae6386b8b0f60c13e9bf /libguile/arbiters.c
parentfbd485ba49663beaf82cf4564d4e9b5d900c4c26 (diff)
downloadguile-843524cc2079e6fb23554eac366a87faf0d720f3.tar.gz
Fix some typing issues wrt SCM/scm_bits_t.
Diffstat (limited to 'libguile/arbiters.c')
-rw-r--r--libguile/arbiters.c8
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