From 422bbef1aef77e72200ffaffb8c4388e5b40aba1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Mar 2000 05:10:57 +0000
Subject: [PATCH] Add check for starting in correct location.

---
 etc/build-tree.sh | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/etc/build-tree.sh b/etc/build-tree.sh
index e98e2aec7..82046bd68 100755
--- a/etc/build-tree.sh
+++ b/etc/build-tree.sh
@@ -1,11 +1,15 @@
 #!/bin/sh
 #
-# $Id: build-tree.sh,v 1.1 2000/03/21 05:09:28 cph Exp $
+# $Id: build-tree.sh,v 1.2 2000/03/21 05:10:57 cph Exp $
 #
 # Program to finish setting up the Scheme source tree after it is
 # checked out.  Adds required links, builds TAGS files, etc.
 #
-cd v7
+if [ ! -d 6001 ]
+then
+  echo "This must be run from the top-level Scheme source directory."
+  exit 1
+fi
 for directory in 6001 cref edwin rcs runtime sf sos win32
 do
   (cd $directory; ln -s ../Makefile.std Makefile)
-- 
2.25.1