From 2a5bf2eeec07e4ff29fe233227593b02a0403766 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 18 Sep 2008 22:11:43 +0200
Subject: [PATCH] Use the `GC_FREE_SPACE_DIVISOR' environment variable.

* libguile/gc.c (scm_storage_prehistory): Initialize `GC_free_space_divisor'
  using the `GC_FREE_SPACE_DIVISOR' environment variable.
---
 libguile/gc.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libguile/gc.c b/libguile/gc.c
index 93d98d4fc..15c4e151c 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -625,6 +625,7 @@ void
 scm_storage_prehistory ()
 {
   GC_all_interior_pointers = 0;
+  GC_free_space_divisor = scm_getenv_int ("GC_FREE_SPACE_DIVISOR", 3);
 
   GC_INIT ();