diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 17:51:49 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 17:51:49 +0000 |
commit | 0bc908e7c448940099612b3bd1d10356652241ee (patch) | |
tree | 56a8c81c588bf537409099a1be2d225685eb5d4b | |
parent | 74a426ae25fb30522d8b91e5c14b63fa52daf1dd (diff) | |
download | guile-0bc908e7c448940099612b3bd1d10356652241ee.tar.gz |
* arbiters.c (SCM_ARB_LOCKED): Use SCM_CARBITS.
-rw-r--r-- | libguile/arbiters.c | 4 |
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); |