From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 5 Nov 1995 13:16:41 +0000 (+0000)
Subject: Added a printout line before band saves.
X-Git-Tag: 20090517-FFI~5762
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff740aafe8549dc1a1bd65f37566a59416a2f32b;p=mit-scheme.git

Added a printout line before band saves.
---

diff --git a/etc/rebuild-8.0 b/etc/rebuild-8.0
index 1e75af1f6..04219ce7c 100755
--- a/etc/rebuild-8.0
+++ b/etc/rebuild-8.0
@@ -1,6 +1,6 @@
 #!/bin/csh -f
 
-# $Id: rebuild-8.0,v 1.3 1995/08/02 03:51:01 adams Exp $
+# $Id: rebuild-8.0,v 1.4 1995/11/05 13:16:41 adams Exp $
 
 # Arguments: runtimeversion compilerversion edwinversion 6001version
 
@@ -167,6 +167,7 @@ if ("$runtime" != "") then
   echo "### $scheme -large -fasl make.com -no-init-file"
   $scheme -large -fasl make.com -no-init-file <<*END*
 (begin
+  (write-line '(saving runtime band ...))
   (disk-save "../tmp/runtime.com")
   (write-line '(saved runtime band))
   (%exit 0))
@@ -196,6 +197,7 @@ if ("$complr" != "") then
   (load "make.com")
   (cd "../compiler")
   (load "make.com")
+  (write-line '(saving compiler band ...))
   (disk-save "../tmp/complr.com")
   (write-line '(saved compiler band))
   (%exit 0))
@@ -223,6 +225,7 @@ if ("$edwin" != "") then
   $scheme -heap 2000 $runbandarg -no-init-file <<*END*
 (begin
   (load "make.com")
+  (write-line '(saving edwin band ...))
   (disk-save "../tmp/edwin.com")
   (write-line '(saved edwin band))
   (%exit 0))
@@ -248,6 +251,7 @@ if (("$edwin" != "") || ("$complr" != "")) then
   $scheme -constant 2000 -heap 2000 -compiler $cbandarg -no-init-file <<*END*
 (begin
   (load "make.com")
+  (write-line '(saving c+e band ...))
   (disk-save "../tmp/c+e.com")
   (write-line '(saved c+e band))
   (%exit 0))
@@ -276,6 +280,7 @@ if ("$student" != "") then
   (load "make.com")
   (cd "../6001")
   (load "make.com")
+  (write-line '(saving 6001 band ...))
   (disk-save "../tmp/6001.com")
   (write-line '(saved 6001 band))
   (%exit 0))