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.

diff --git a/v7/src/etc/compile.sh b/v7/src/etc/compile.sh
index b64b5cdb5f76eaf4e85fe85a185abe692308d920..985b611b0d4361113785c0b21719d119985f5e78 100755 (executable)
--- 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 2231387ce252b03cc3fcd4edca7cc0142c17a013..6c6616c2c3ce469faed4439a329871cc7aff1149 100755 (executable)
--- 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}