summaryrefslogtreecommitdiff
path: root/libguile/futures.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-09-22 17:41:37 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-09-22 17:41:37 +0000
commitd2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch)
treedf14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/futures.c
parenta61f4e0c61695e17984b25b16fbf720b851b739c (diff)
downloadguile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz
*** empty log message ***
Diffstat (limited to 'libguile/futures.c')
-rw-r--r--libguile/futures.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/futures.c b/libguile/futures.c
index 07cf6e6a3..0f6000a7a 100644
--- a/libguile/futures.c
+++ b/libguile/futures.c
@@ -55,7 +55,7 @@ static SCM
count (SCM ls)
{
int n = 0;
- while (!SCM_NULLP (ls))
+ while (!scm_is_null (ls))
{
++n;
ls = SCM_FUTURE_NEXT (ls);
@@ -169,9 +169,9 @@ scm_i_make_future (SCM thunk)
scm_mutex_lock (&future_admin_mutex);
while (1)
{
- if (!SCM_NULLP (old))
+ if (!scm_is_null (old))
UNLINK (old, future);
- else if (!SCM_NULLP (young))
+ else if (!scm_is_null (young))
UNLINK (young, future);
else
{
@@ -244,7 +244,7 @@ SCM_DEFINE (scm_future_ref, "future-ref", 1, 0, 0,
static void
kill_futures (SCM victims)
{
- while (!SCM_NULLP (victims))
+ while (!scm_is_null (victims))
{
SCM future;
UNLINK (victims, future);
@@ -257,7 +257,7 @@ static void
cleanup_undead ()
{
SCM next = undead, *nextloc = &undead;
- while (!SCM_NULLP (next))
+ while (!scm_is_null (next))
{
if (scm_mutex_trylock (SCM_FUTURE_MUTEX (next)))
goto next;
@@ -284,7 +284,7 @@ cleanup_undead ()
static void
mark_futures (SCM futures)
{
- while (!SCM_NULLP (futures))
+ while (!scm_is_null (futures))
{
SCM_SET_GC_MARK (futures);
futures = SCM_FUTURE_NEXT (futures);
@@ -310,7 +310,7 @@ scan_futures (void *dummy1, void *dummy2, void *dummy3)
next = futures;
nextloc = &futures;
- while (!SCM_NULLP (next))
+ while (!scm_is_null (next))
{
if (!SCM_GC_MARK_P (next))
goto free;
@@ -319,7 +319,7 @@ scan_futures (void *dummy1, void *dummy2, void *dummy3)
next = *nextloc;
}
goto exit;
- while (!SCM_NULLP (next))
+ while (!scm_is_null (next))
{
if (SCM_GC_MARK_P (next))
{