diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/futures.c | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/futures.c')
-rw-r--r-- | libguile/futures.c | 16 |
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)) { |