Added a printout line before band saves.
authorStephen Adams <edu/mit/csail/zurich/adams>
Sun, 5 Nov 1995 13:16:41 +0000 (13:16 +0000)
committerStephen Adams <edu/mit/csail/zurich/adams>
Sun, 5 Nov 1995 13:16:41 +0000 (13:16 +0000)
etc/rebuild-8.0

index 1e75af1f6c85c5f236524a65c0a2d6934101b41a..04219ce7cdec29a5abf7669d77d9b00bdec07616 100755 (executable)
@@ -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))