diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-06 00:18:52 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-06 00:18:52 +0200 |
commit | 5eb75b5de08ea8eb86a4760e1454460b61b4bccc (patch) | |
tree | 55efc5ec0ed5bf42cfafd7249637d96cb4818ef3 /libguile/__scm.h | |
parent | 891a1851a1e0e47560cf99cf76e9478d77e1a7db (diff) | |
parent | a2a6c0e319b5c146c484cb1fe8ffc9b14b9a9876 (diff) | |
download | guile-5eb75b5de08ea8eb86a4760e1454460b61b4bccc.tar.gz |
Merge remote-tracking branch 'origin/stable-2.0'
Diffstat (limited to 'libguile/__scm.h')
-rw-r--r-- | libguile/__scm.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/__scm.h b/libguile/__scm.h index 2bfb4f694..f5551ad7a 100644 --- a/libguile/__scm.h +++ b/libguile/__scm.h @@ -536,10 +536,10 @@ SCM_API void scm_async_tick (void); while (0) /* SCM_ASYNC_TICK_WITH_CODE is only available to Guile itself */ -# define SCM_ASYNC_TICK_WITH_CODE(stmt) \ +# define SCM_ASYNC_TICK_WITH_CODE(thr, stmt) \ do \ { \ - if (SCM_UNLIKELY (SCM_I_CURRENT_THREAD->pending_asyncs)) \ + if (SCM_UNLIKELY (thr->pending_asyncs)) \ { \ stmt; \ scm_async_click (); \ |