From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Mar 2003 20:12:30 +0000 (+0000)
Subject: If script is invoked from top-level build directory (the usual case),
X-Git-Tag: 20090517-FFI~1969
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67e55133db19cd03c7bc45b38f3c35a4bf3608f2;p=mit-scheme.git

If script is invoked from top-level build directory (the usual case),
allow user to omit the argument.
---

diff --git a/v7/src/etc/compile.sh b/v7/src/etc/compile.sh
index 6369bb0fc..acef4b2cd 100755
--- a/v7/src/etc/compile.sh
+++ b/v7/src/etc/compile.sh
@@ -1,8 +1,8 @@
 #!/bin/sh
 #
-# $Id: compile.sh,v 1.4 2003/02/14 18:28:14 cph Exp $
+# $Id: compile.sh,v 1.5 2003/03/10 20:12:30 cph Exp $
 #
-# Copyright (c) 2002 Massachusetts Institute of Technology
+# Copyright 2002,2003 Massachusetts Institute of Technology
 #
 # This file is part of MIT/GNU Scheme.
 #
@@ -21,7 +21,15 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 # 02111-1307, USA.
 
+if [ $# -ge 1 ]; then
+  DIR="${1}"
+elif [ -r "./etc/compile.scm" ]; then
+  DIR="."
+else
+  echo "usage: ${0} DIRECTORY"
+  exit 1
+fi
 if [ -z "${SCHEME_COMPILER}" ]; then
     SCHEME_COMPILER="scheme -compiler -heap 4000"
 fi
-${SCHEME_COMPILER} < "${1}/etc/compile.scm"
+${SCHEME_COMPILER} < "${DIR}/etc/compile.scm"