From f311754e17983afe1dc6f8f4d829f3a1e8b7f437 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 15 May 2011 13:20:56 +0200
Subject: [PATCH] simplify SCM_TICK

* libguile/__scm.h (SCM_TICK): Define to simply scm_async_tick (or
  SCM_ASYNC_TICK when building Guile).
---
 libguile/__scm.h | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/libguile/__scm.h b/libguile/__scm.h
index 2592e458c..014d16411 100644
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -445,10 +445,11 @@ SCM_API void scm_async_tick (void);
 #define SCM_FENCE
 #endif
 
-#define SCM_TICK \
-do { \
-  SCM_ASYNC_TICK; \
-} while (0)
+#ifdef BUILDING_LIBGUILE
+#define SCM_TICK SCM_ASYNC_TICK
+#else
+#define SCM_TICK scm_async_tick ()
+#endif