From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 May 2007 13:50:04 +0000 (+0000)
Subject: Simplify: no need for SCHEME_COMPILER variable since this script
X-Git-Tag: 20090517-FFI~601
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a46de9fc6643ce578b08b3d2b318f1c10dc8a983;p=mit-scheme.git

Simplify: no need for SCHEME_COMPILER variable since this script
should always use the compiler we just built.
---

diff --git a/v7/src/etc/c-compile.sh b/v7/src/etc/c-compile.sh
index 15fb863b4..ff2b290b0 100755
--- a/v7/src/etc/c-compile.sh
+++ b/v7/src/etc/c-compile.sh
@@ -1,8 +1,10 @@
 #!/bin/sh
 #
-# $Id: c-compile.sh,v 1.2 2007/04/15 08:16:34 riastradh Exp $
+# $Id: c-compile.sh,v 1.3 2007/05/02 13:50:04 cph Exp $
 #
-# Copyright 2007 Massachusetts Institute of Technology
+# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+#     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+#     2005, 2006, 2007 Massachusetts Institute of Technology
 #
 # This file is part of MIT/GNU Scheme.
 #
@@ -23,22 +25,16 @@
 
 set -e
 
-if [ $# -ge 1 ]; then
-  DIR="${1}"
-elif [ -r "./etc/c-compile.scm" ]; then
-  DIR="."
+if [ ${#} -ge 1 ]; then
+    cd "${1}"
+elif [ -r etc/c-compile.scm ]; then
+    :
 else
-  echo "usage: ${0} DIRECTORY"
-  exit 1
+    echo "usage: ${0} DIRECTORY"
+    exit 1
 fi
 
-if [ -z "${SCHEME_COMPILER}" ]; then
-    (
-	cd "${DIR}"
-	sh etc/c-initial-bands.sh
-    )
-    SCHEME_COMPILER="${DIR}/microcode/scheme --library ${DIR}/lib"
-    SCHEME_COMPILER="${SCHEME_COMPILER} --compiler --heap 3000 --stack 200"
-fi
+sh etc/c-initial-bands.sh
 
-${SCHEME_COMPILER} < "${DIR}/etc/c-compile.scm"
+exec microcode/scheme --library lib --compiler --heap 6000 --stack 200 \
+    < etc/c-compile.scm