summaryrefslogtreecommitdiff
path: root/libguile/__scm.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-05-06 00:18:52 +0200
committerAndy Wingo <wingo@pobox.com>2011-05-06 00:18:52 +0200
commit5eb75b5de08ea8eb86a4760e1454460b61b4bccc (patch)
tree55efc5ec0ed5bf42cfafd7249637d96cb4818ef3 /libguile/__scm.h
parent891a1851a1e0e47560cf99cf76e9478d77e1a7db (diff)
parenta2a6c0e319b5c146c484cb1fe8ffc9b14b9a9876 (diff)
downloadguile-5eb75b5de08ea8eb86a4760e1454460b61b4bccc.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Diffstat (limited to 'libguile/__scm.h')
-rw-r--r--libguile/__scm.h4
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 (); \