Eliminate "system" datatype. Replace it by a simpler "subsystem

identification" mechanism.

diff --git a/v7/src/runtime/system.scm b/v7/src/runtime/system.scm
index 2b1c8c9a1ce24c8ad500a3868c4a666ab2d3eb89..0851ef9c4643e8ac71fa82eb551129a59ed34313 100644 (file)
--- a/v7/src/runtime/system.scm
+++ b/v7/src/runtime/system.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: system.scm,v 14.10 1998/02/12 05:56:48 cph Exp $
+$Id: system.scm,v 14.11 1998/02/12 06:03:15 cph Exp $
 
 Copyright (c) 1988-98 Massachusetts Institute of Technology
 
@@ -57,10 +57,16 @@ MIT in each case. |#
                     (error "Illegal subsystem version:"
                            version))))
            version))))
-    (remove-subsystem-identification! name)
-    (set! subsystem-identifications
-         (append! subsystem-identifications (list (cons name version)))))
-  unspecific)
+    (let ((entry (find-entry name)))
+      (if entry
+         (begin
+           (set-car! entry name)
+           (set-cdr! entry version))
+         (begin
+           (set! subsystem-identifications
+                 (append! subsystem-identifications
+                          (list (cons name version))))
+           unspecific)))))
 
 (define (remove-subsystem-identification! name)
   (let loop ((previous #f) (entries subsystem-identifications))