Update to know about RCS header.

diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040
index 526a6da228db9bcb9feb20366bc1decf73272c7d..41b3e00b54c9a78517414f60a7e561d58e3c1719 100644 (file)
--- a/v7/src/compiler/machines/bobcat/make.scm-68040
+++ b/v7/src/compiler/machines/bobcat/make.scm-68040
@@ -37,13 +37,27 @@
 
 ;;;; Compiler Make File for MC68020
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.7 1986/12/13 17:31:11 cph Exp $
-
 (declare (usual-integrations))
 \f
 (set-working-directory-pathname! "$zcomp")
+(load "rcs" system-global-environment)
 (load "load" system-global-environment)
 
+(in-package compiler-package
+
+  (define compiler-system
+    (make-environment
+      (define :name "Liar (Bobcat 68020)")
+      (define :version)
+      (define :modification)
+
+      (parse-rcs-header "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.8 1986/12/13 18:10:01 cph Exp $"
+       (lambda (filename version date time author state)
+         (set! :version (car version))
+         (set! :modification (cadr version))))))
+
+  (add-system! compiler-system))
+\f
 (load-system system-global-environment
             'COMPILER-PACKAGE
             '(SYSTEM-GLOBAL-ENVIRONMENT)
@@ -118,14 +132,6 @@
 
               ))
 
-(in-package compiler-package
-  (define compiler-system
-    (make-environment
-      (define :name "Liar (Bobcat 68020)")
-      (define :version 3)
-      (define :modification 0)))
-  (add-system! compiler-system))
-
 (%ge compiler-package)
 (%gst (access compiler-syntax-table compiler-package))
 (%gst (access compiler-syntax-table compiler-package))
\ No newline at end of file