Change to use ADD-IDENTIFICATION! rather than ADD-SYSTEM!.

diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm
index c5a36d28eb113da38e1911778ad8d79a3a00fb89..6b57059d2676d1290b3a19862ca3fcfca65ce142 100644 (file)
--- a/v7/src/6001/make.scm
+++ b/v7/src/6001/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 15.27 1998/02/01 05:17:17 cph Exp $
+$Id: make.scm,v 15.28 1998/02/12 04:36:10 cph Exp $
 
 Copyright (c) 1991-98 Massachusetts Institute of Technology
 
@@ -50,7 +50,7 @@ MIT in each case. |#
                  (string-ci=? "HP-UX" microcode-id/operating-system-variant))
             (load "floppy" edwin)))))))
 ((access initialize-package! (->environment '(student scode-rewriting))))
-(add-system! (make-system "6.001" 15 23 '()))
+(add-identification! "6.001" 15 28)
 
 ;;; Customize the runtime system:
 (set! repl:allow-restart-notifications? false)

diff --git a/v7/src/pcsample/load.scm b/v7/src/pcsample/load.scm
index be4b0333a2009aa63c0853e8937facbf0527c322..8411c4508c57b46925ebbd86b8ab93936d5ed7f8 100644 (file)
--- a/v7/src/pcsample/load.scm
+++ b/v7/src/pcsample/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 1.3 1995/11/19 19:33:24 adams Exp $
+$Id: load.scm,v 1.4 1998/02/12 04:36:43 cph Exp $
 
-Copyright (c) 1995 Massachusetts Institute of Technology
+Copyright (c) 1995-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -46,7 +46,7 @@ MIT in each case. |#
          compiled-code-block/filename))))
 
 (package/system-loader "pcs" '() 'QUERY)
-(add-system! (make-system "PC Sampler" 1 0 '()))
+(add-identification! "PC Sampler" 1 0)
 
 (let ()
   (define (package-initialize package-name

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index de1a9920482dccd2cecad310e42df815327c229a..78d9702879b06044a68b506e7c790fad6018285c 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: version.scm,v 14.174 1997/10/22 05:18:12 cph Exp $
+$Id: version.scm,v 14.175 1998/02/12 04:33:28 cph Exp $
 
-Copyright (c) 1988-97 Massachusetts Institute of Technology
+Copyright (c) 1988-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -38,17 +38,11 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (define (initialize-package!)
-  (set! microcode-system
-       (make-system "Microcode"
-                    microcode-id/version
-                    microcode-id/modification
-                    '()))
-  (add-system! microcode-system)
+  (snarf-microcode-version!)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
   (add-identification! "Runtime" 14 174))
 
-(define microcode-system)
-
 (define (snarf-microcode-version!)
-  (set-system/version! microcode-system microcode-id/version)
-  (set-system/modification! microcode-system microcode-id/modification))
\ No newline at end of file
+  (add-identification! "Microcode"
+                      microcode-id/version
+                      microcode-id/modification))
\ No newline at end of file

diff --git a/v7/src/sos/load.scm b/v7/src/sos/load.scm
index 35382fa7534dd93784c04cc01812c4ac65d595ea..951a1f4bbb19819bf7eb13508ebcbfc993801bf3 100644 (file)
--- a/v7/src/sos/load.scm
+++ b/v7/src/sos/load.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.3 1997/06/16 09:01:25 cph Exp $
+;;; $Id: load.scm,v 1.4 1998/02/12 04:38:36 cph Exp $
 ;;;
-;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
+;;; Copyright (c) 1995-98 Massachusetts Institute of Technology
 ;;;
 ;;; This material was developed by the Scheme project at the
 ;;; Massachusetts Institute of Technology, Department of Electrical
@@ -50,4 +50,4 @@
   (install 'DEFINE-COMPUTED-EMP 'TRANSFORM:DEFINE-COMPUTED-EMP)
   ;;(install 'METHOD 'TRANSFORM:METHOD)
   )
-(add-system! (make-system "SOS" 1 3 '()))
\ No newline at end of file
+(add-identification! "SOS" 1 4)
\ No newline at end of file

diff --git a/v7/src/swat/scheme/load.scm b/v7/src/swat/scheme/load.scm
index 10f05443172890d1f2cab5d2054db8ae946c0574..964aac16f7057960e7da86f72dec12c9d34a3261 100644 (file)
--- a/v7/src/swat/scheme/load.scm
+++ b/v7/src/swat/scheme/load.scm
@@ -14,7 +14,7 @@
      (pathname-as-directory "lib/swat")
      (lambda ()
        (package/system-loader "swat" '() 'QUERY)))
-    (add-system! (make-system "SWAT" 1 0 '()))))
+    (add-identification! "SWAT" 1 0)))
 |#
 
 

diff --git a/v7/src/wabbit/load.scm b/v7/src/wabbit/load.scm
index 2ccbefc63f28d40566119bffb376c7c4694b9316..0c2d9d4722027e0e22a510ecb720efc9bfded54b 100644 (file)
--- a/v7/src/wabbit/load.scm
+++ b/v7/src/wabbit/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 1.1 1995/07/11 02:03:43 ziggy Exp $
+$Id: load.scm,v 1.2 1998/02/12 04:38:00 cph Exp $
 
-Copyright (c) 1994 Massachusetts Institute of Technology
+Copyright (c) 1994-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -41,7 +41,7 @@ MIT in each case. |#
        'ok)
       (else
        (package/system-loader "wabbit" '() 'QUERY)
-       (add-system! (make-system "Wabbit Hunting / Headhunting GC" 1 0 '()))
+       (add-identification! "Wabbit Hunting / Headhunting GC" 1 0)
 
        (let ()
         (define (package-initialize package-name

diff --git a/v7/src/win32/make.scm b/v7/src/win32/make.scm
index 6731eff4545f1a35c2e1c5f92abea65eb765c6d3..7db67da382991a82f81a60ab13d4363b055f213b 100644 (file)
--- a/v7/src/win32/make.scm
+++ b/v7/src/win32/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.3 1998/02/01 05:17:47 cph Exp $
+$Id: make.scm,v 1.4 1998/02/12 04:35:20 cph Exp $
 
 Copyright (c) 1993-98 Massachusetts Institute of Technology
 
@@ -35,7 +35,7 @@ MIT in each case. |#
 ;;;; Win32 subsystem: System Construction
 
 (declare (usual-integrations))
-
+\f
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     ((access with-directory-rewriting-rule
@@ -48,7 +48,7 @@ MIT in each case. |#
 
 ;((package/reference (find-package '(WIN32))
 ;                  'INITIALIZE-PACKAGE!))
-(add-system! (make-system "Win32" 1 0 '()))
+(add-identification! "Win32" 1 4)
 
 
 (define (package-initialize package-name procedure-name mandatory?)
@@ -92,4 +92,4 @@ MIT in each case. |#
 (package-initialize '(win32) 'initialize-package! #t)
 (package-initialize '(win32) 'init-wf_user! #t)
 (package-initialize '(win32 scheme-graphics) 'initialize-package! #t)
-(package-initialize '(win32 dib) 'initialize-package! #t)
+(package-initialize '(win32 dib) 'initialize-package! #t)
\ No newline at end of file

diff --git a/v8/src/compiler/base/make.scm b/v8/src/compiler/base/make.scm
index d65d97ad731636527c2ab1367f00f62f9f4fa506..a6a256bcb778622755fb33b068187c1cfa93c959 100644 (file)
--- a/v8/src/compiler/base/make.scm
+++ b/v8/src/compiler/base/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.1 1994/11/19 02:02:36 adams Exp $
+$Id: make.scm,v 1.2 1998/02/12 04:43:09 cph Exp $
 
-Copyright (c) 1988-1994 Massachusetts Institute of Technology
+Copyright (c) 1988-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -57,11 +57,9 @@ MIT in each case. |#
                                  'INITIALIZE-PACKAGE!)))))
       (initialize-package! '(COMPILER MACROS))
       (initialize-package! '(COMPILER DECLARATIONS)))
-    (add-system!
-     (make-system (string-append "Liar (" 
-                                (if (procedure? architecture-name)
-                                    (architecture-name)
-                                    architecture-name)
-                                ")")
-                 5 0
-                 '()))))
\ No newline at end of file
+    (add-identification! (string-append "Liar (" 
+                                       (if (procedure? architecture-name)
+                                           (architecture-name)
+                                           architecture-name)
+                                       ")")
+                        5 0)))
\ No newline at end of file

diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 49636ff6d8a0da21e06dc5a4f448c208567c28af..6312dec31d162a7b545f01ddeaff80633613a221 100644 (file)
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.32 1997/07/15 18:32:04 adams Exp $
+$Id: make.scm,v 4.33 1998/02/12 04:42:26 cph Exp $
 
-Copyright (c) 1988-1997 Massachusetts Institute of Technology
+Copyright (c) 1988-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -49,4 +49,4 @@ MIT in each case. |#
                        'USUAL-INTEGRATIONS/INITIALIZE-EXPANDERS!))
     ((package/reference (find-package '(SCODE-OPTIMIZER))
                        'USUAL-INTEGRATIONS/CACHE!))))
-(add-system! (make-system "SF" 4 32 '()))
\ No newline at end of file
+(add-identification! "SF" 4 33)
\ No newline at end of file