From 9537d8eb5aa0dc295f4914074eae69bc3769bafe Mon Sep 17 00:00:00 2001
From: "Michael R. Blair" <edu/mit/csail/zurich/ziggy>
Date: Fri, 2 Jun 2006 06:37:44 +0000
Subject: [PATCH] Replace hard-wired "scheme" calls with retargetable defaulted
 env vars.

Use GNU standard double-dashed switch args by default in release 7.7+.

This forces you to rebind the env var if building w/ pre-7.7 bootstrap,
which is good:  it makes you be explicit about mis-matched bootstraps.

A forthcoming update to "src/README.txt" spells out the details.
---
 v7/src/etc/compile.sh                | 4 ++--
 v7/src/imail/update-changelog.sh     | 5 ++++-
 v7/src/microcode/makegen/makeinit.sh | 7 +++++--
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/v7/src/etc/compile.sh b/v7/src/etc/compile.sh
index acef4b2cd..e12d4fa29 100755
--- a/v7/src/etc/compile.sh
+++ b/v7/src/etc/compile.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #
-# $Id: compile.sh,v 1.5 2003/03/10 20:12:30 cph Exp $
+# $Id: compile.sh,v 1.6 2006/06/02 06:37:44 ihtfisp Exp $
 #
 # Copyright 2002,2003 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 4000"
 fi
 ${SCHEME_COMPILER} < "${DIR}/etc/compile.scm"
diff --git a/v7/src/imail/update-changelog.sh b/v7/src/imail/update-changelog.sh
index 3689d3bb6..39d564ed5 100755
--- a/v7/src/imail/update-changelog.sh
+++ b/v7/src/imail/update-changelog.sh
@@ -1,5 +1,8 @@
 #!/bin/sh
-scheme -large <<***EOF***
+if [ -z "${SCHEME_LARGE}" ]; then
+    SCHEME_LARGE="scheme --large"
+fi
+${SCHEME_LARGE} <<***EOF***
 (load-option 'RCS)
 (rcs-directory-log "."
 		   '((CHANGELOG? #t)
diff --git a/v7/src/microcode/makegen/makeinit.sh b/v7/src/microcode/makegen/makeinit.sh
index d242de2d4..7d6b5d08a 100755
--- a/v7/src/microcode/makegen/makeinit.sh
+++ b/v7/src/microcode/makegen/makeinit.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 
-# $Id: makeinit.sh,v 1.10 2003/02/14 18:28:31 cph Exp $
+# $Id: makeinit.sh,v 1.11 2006/06/02 06:37:44 ihtfisp Exp $
 #
 # Copyright (c) 2000 Massachusetts Institute of Technology
 #
@@ -31,7 +31,10 @@
 # Generate "Makefile.in" from "Makefile.in.in".  Requires "config.h",
 # because dependencies are generated by running GCC -M on the source
 # files, which refer to "config.h".
-scheme -heap 2000 <<EOF
+if [ -z "${SCHEME_LARGE}" ]; then
+    SCHEME_LARGE="scheme --large"
+fi
+${SCHEME_LARGE} <<EOF
 (load "makegen/makegen.scm")
 (generate-makefile "makegen/Makefile.in.in"
 		   "Makefile.deps"
-- 
2.25.1