* deprecated.h, boolean.h (SCM_FALSEP, SCM_NFALSEP, SCM_BOOL,

[bpt/guile.git] / libguile / async.c

diff --git a/libguile/async.c b/libguile/async.c
index 34165fe..333b8d0 100644 (file)
--- 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);