From 19e24cea475a1ed482952a5dacb457a1cd421e99 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Mar 1988 21:59:38 +0000
Subject: [PATCH] Change time reports to match compiler.

---
 v7/src/sf/toplev.scm | 4 ++--
 v8/src/sf/make.scm   | 7 +++++--
 v8/src/sf/toplev.scm | 4 ++--
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index b5d144800..d6dffc1a6 100644
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 3.7 1988/03/30 21:54:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 3.8 1988/03/30 21:59:38 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -330,7 +330,7 @@ Currently only the 68000 implementation needs this."
 (define (mark-phase this-name)
   (end-phase)
   (newline)
-  (write-string "      ")
+  (write-string "    ")
   (write-string this-name)
   (write-string "...")
   (set! previous-name this-name))
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 51fa4a076..22b2d205e 100644
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.1 1988/03/25 20:50:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.2 1988/03/30 21:56:15 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -61,9 +61,12 @@ MIT in each case. |#
     (make-environment
       (define :name "SF")
       (define :version 4)
-      (define :modification 0)
+      (define :modification 2)
       (define :files)
 
+      (define :rcs-header		;RCS sets up this string.
+	"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.2 1988/03/30 21:56:15 cph Rel $")
+
       (define :files-lists
 	(list
 	 (cons system-global-environment
diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm
index 27a295e73..8d61367a4 100644
--- a/v8/src/sf/toplev.scm
+++ b/v8/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 3.7 1988/03/30 21:54:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 3.8 1988/03/30 21:59:38 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -330,7 +330,7 @@ Currently only the 68000 implementation needs this."
 (define (mark-phase this-name)
   (end-phase)
   (newline)
-  (write-string "      ")
+  (write-string "    ")
   (write-string this-name)
   (write-string "...")
   (set! previous-name this-name))
-- 
2.25.1