From bf63b7dd21cd0cc9faa774b3dc52e3bda63c0846 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 2 Dec 2006 17:23:25 +0100
Subject: [PATCH] use 10M default heap segment size, 100M max.

---
 lily/main.cc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lily/main.cc b/lily/main.cc
index c3d449905c..728cd89508 100644
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -607,6 +607,12 @@ setup_guile_env ()
   sane_putenv ("GUILE_MIN_YIELD_1", yield, overwrite);
   sane_putenv ("GUILE_MIN_YIELD_2", yield, overwrite);
   sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite);
+
+
+  sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1",
+	       "10485760", overwrite);
+  sane_putenv ("GUILE_MAX_SEGMENT_SIZE",
+	       "104857600", overwrite);
 }
 
 void
-- 
2.39.5