From: Taylor R. Campbell <net/mumble/campbell>
Date: Wed, 27 Dec 2006 08:32:01 +0000 (+0000)
Subject: Twiddle default heap size for shell scripts that invoke Scheme with the
X-Git-Tag: 20090517-FFI~824
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7600de41430b622b5aeeef91c165e6b637b0f5e3;p=mit-scheme.git

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 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}