Change time reports to match compiler.

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index b5d144800ca13a166c52dd1a4b4a9ce15736283d..d6dffc1a6627cef825df0f7928a445b787ea6185 100644 (file)
--- 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 51fa4a07689b079704d54b43e3b1226f84564bd7..22b2d205e0186beaaf6f5fa818d78b46f3ad48d8 100644 (file)
--- 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 27a295e73001796318fad4055482e37652b42df8..8d61367a47cbc4efb71b17db1ec46adf897631e6 100644 (file)
--- 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))