From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Feb 1998 04:43:42 +0000 (+0000)
Subject: Change to use ADD-IDENTIFICATION! rather than ADD-SYSTEM!.
X-Git-Tag: 20090517-FFI~4864
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce23bf3d3ab7961d2ea50f0591b61741b53edcd3;p=mit-scheme.git

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

diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm
index c5a36d28e..6b57059d2 100644
--- 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 be4b0333a..8411c4508 100644
--- 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 de1a99204..78d970287 100644
--- 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 35382fa75..951a1f4bb 100644
--- 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 10f054431..964aac16f 100644
--- 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 2ccbefc63..0c2d9d472 100644
--- 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 6731eff45..7db67da38 100644
--- 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))
-
+
 (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 d65d97ad7..a6a256bcb 100644
--- 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 49636ff6d..6312dec31 100644
--- 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