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/async.c | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/async.c b/libguile/async.c index 333b8d0e1..35e8a5a66 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -149,7 +149,7 @@ scm_async_click () if (scm_root->block_asyncs == 0) { SCM asyncs; - while (!SCM_NULLP(asyncs = scm_root->active_asyncs)) + while (!scm_is_null(asyncs = scm_root->active_asyncs)) { scm_root->active_asyncs = SCM_EOL; do @@ -157,9 +157,9 @@ scm_async_click () scm_call_0 (SCM_CAR (asyncs)); asyncs = SCM_CDR (asyncs); } - while (!SCM_NULLP(asyncs)); + while (!scm_is_null(asyncs)); } - for (asyncs = scm_root->signal_asyncs; !SCM_NULLP(asyncs); + for (asyncs = scm_root->signal_asyncs; !scm_is_null(asyncs); asyncs = SCM_CDR (asyncs)) { if (scm_is_true (SCM_CAR (asyncs))) |