From 7600de41430b622b5aeeef91c165e6b637b0f5e3 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Wed, 27 Dec 2006 08:32:01 +0000
Subject: [PATCH] Twiddle default heap size for shell scripts that invoke
 Scheme with the compiler loaded, so that they fit in the absurdly small
 limits on OS X/Intel.  3000 seems to be the largest number of blocks we can
 rely on.

---
 v7/src/etc/compile.sh      | 4 ++--
 v7/src/microcode/utabmd.sh | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/etc/compile.sh b/v7/src/etc/compile.sh
index b64b5cdb5..985b611b0 100755
--- a/v7/src/etc/compile.sh
+++ b/v7/src/etc/compile.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #
-# $Id: compile.sh,v 1.7 2006/06/10 06:12:26 cph Exp $
+# $Id: compile.sh,v 1.8 2006/12/27 08:32:01 riastradh Exp $
 #
 # Copyright 2002,2003,2006 Massachusetts Institute of Technology
 #
@@ -30,6 +30,6 @@ else
   exit 1
 fi
 if [ -z "${SCHEME_COMPILER}" ]; then
-    SCHEME_COMPILER="scheme --compiler --heap 4000"
+    SCHEME_COMPILER="scheme --compiler --heap 3000"
 fi
 ${SCHEME_COMPILER} < "${DIR}/etc/compile.scm"
diff --git a/v7/src/microcode/utabmd.sh b/v7/src/microcode/utabmd.sh
index 2231387ce..6c6616c2c 100755
--- a/v7/src/microcode/utabmd.sh
+++ b/v7/src/microcode/utabmd.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #
-# $Id: utabmd.sh,v 1.7 2006/06/10 05:24:54 cph Exp $
+# $Id: utabmd.sh,v 1.8 2006/12/27 08:32:01 riastradh Exp $
 #
 # Copyright 2002,2003,2006 Massachusetts Institute of Technology
 #
@@ -22,6 +22,6 @@
 # 02111-1307, USA.
 
 if [ -z "${SCHEME_COMPILER}" ]; then
-    SCHEME_COMPILER="scheme --compiler"
+    SCHEME_COMPILER="scheme --compiler --heap 3000"
 fi
 echo '(sf "utabmd")' | ${SCHEME_COMPILER}
-- 
2.25.1