mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

simplify SCM_TICK

Browse source 
* libguile/__scm.h (SCM_TICK): Define to simply scm_async_tick (or
  SCM_ASYNC_TICK when building Guile).
This commit is contained in:
Andy Wingo 2011-05-15 13:20:56 +02:00
parent 8b8723b307
commit f311754e17
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/__scm.h
View file

@ -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