mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40: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 #define SCM_FENCE
#endif #endif
#define SCM_TICK \ #ifdef BUILDING_LIBGUILE
do { \ #define SCM_TICK SCM_ASYNC_TICK
SCM_ASYNC_TICK; \ #else
} while (0) #define SCM_TICK scm_async_tick ()
#endif