From: Joe Marshall <eval.apply@gmail.com>
Date: Sat, 19 May 2012 17:25:56 +0000 (-0700)
Subject: Wrap show-time around compilations.  Add newline after disk-save.
X-Git-Tag: release-9.2.0~247^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=189c47297c8b2748169ddc43641adbbd6d0c65c5;p=mit-scheme.git

Wrap show-time around compilations.  Add newline after disk-save.
---

diff --git a/src/etc/compile.sh b/src/etc/compile.sh
index 2056b609b..17791001b 100755
--- a/src/etc/compile.sh
+++ b/src/etc/compile.sh
@@ -29,14 +29,19 @@ set -e
 run_cmd "${@}" <<EOF
 (begin
   (load "etc/compile.scm")
-  (compile-cref compile-dir)
-  (for-each compile-dir '("runtime" "star-parser" "sf")))
+  (show-time
+    (lambda ()
+      (compile-cref compile-dir)
+      (for-each compile-dir '("runtime" "star-parser" "sf"))))
+  (newline))
 EOF
 
 get_fasl_file
 run_cmd_in_dir runtime ../microcode/scheme --batch-mode		\
 	--library ../lib --fasl "${FASL}" <<EOF
-(disk-save "../lib/runtime.com")
+(begin
+  (disk-save "../lib/runtime.com")
+  (newline))
 EOF
 
 # Syntax the new compiler in fresh (compiler) packages.  Use the new sf too.
@@ -44,17 +49,26 @@ run_cmd ./microcode/scheme --batch-mode --library lib --band runtime.com <<EOF
 (begin
   (load-option 'SF)
   (with-working-directory-pathname "compiler/"
-    (lambda () (load "compiler.sf"))))
+    (lambda ()
+      (show-time
+        (lambda () (load "compiler.sf")))
+      (newline))))
 EOF
 
 run_cmd "${@}" <<EOF
 (with-working-directory-pathname "compiler/"
-  (lambda () (load "compiler.cbf")))
+  (lambda ()
+    (show-time
+      (lambda () (load "compiler.cbf")))
+    (newline)))
 EOF
 
 run_cmd ./microcode/scheme --batch-mode --library lib --band runtime.com <<EOF
 (begin
   (load-option 'COMPILER)
   (load "etc/compile.scm")
-  (compile-remaining-dirs compile-dir))
+  (show-time
+    (lambda ()
+      (compile-remaining-dirs compile-dir)))
+  (newline))
 EOF