summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/async.c b/libguile/async.c
index 34165fe11..333b8d0e1 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -162,7 +162,7 @@ scm_async_click ()
for (asyncs = scm_root->signal_asyncs; !SCM_NULLP(asyncs);
asyncs = SCM_CDR (asyncs))
{
- if (!SCM_FALSEP (SCM_CAR (asyncs)))
+ if (scm_is_true (SCM_CAR (asyncs)))
{
SCM proc = SCM_CAR (asyncs);
SCM_SETCAR (asyncs, SCM_BOOL_F);