X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/d38ca16e2cd444418b284dc15fc4be8402004acc..3f69e638be12cfe9d5963df21e6c004a733f0ca1:/libguile/gc.c

diff --git a/libguile/gc.c b/libguile/gc.c
index eacd5e256..bc35faf33 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -602,6 +602,14 @@ scm_storage_prehistory ()
   GC_set_free_space_divisor (free_space_divisor);
   GC_set_finalize_on_demand (1);
 
+#if (GC_VERSION_MAJOR == 7 && GC_VERSION_MINOR == 4	\
+     && GC_ALPHA_VERSION == 0)
+  /* BDW-GC 7.4.0 has a bug making it loop indefinitely when using more
+     than one marker thread: <https://github.com/ivmai/bdwgc/pull/30>.
+     Work around it by asking for one marker thread.  */
+  setenv ("GC_MARKERS", "1", 1);
+#endif
+
   GC_INIT ();
 
   GC_expand_hp (DEFAULT_INITIAL_HEAP_SIZE);