X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/a54a94b39707f47a1f30533bcf7664094d65d073..76da80e7881947ebcdb647e5ce4be029fece29f2:/libguile/__scm.h?ds=sidebyside

diff --git a/libguile/__scm.h b/libguile/__scm.h
index 8fbd43c83..6ab774cd6 100644
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -508,9 +508,9 @@ do { \
    (private or global, with unwind where necessary), and remove the
    remaining DEFER/ALLOWs.  */
 
-#define SCM_DEFER_INTS do { } while (0);
+#define SCM_DEFER_INTS scm_rec_mutex_lock (&scm_i_defer_mutex);
 
-#define SCM_ALLOW_INTS do { } while (0);
+#define SCM_ALLOW_INTS scm_rec_mutex_unlock (&scm_i_defer_mutex);
 
 #define SCM_REDEFER_INTS SCM_DEFER_INTS