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 0851ef9c4643e8ac71fa82eb551129a59ed34313..4a8c47fa5a9b3f28f20afdb90041378354fa50ba 100644 (file)
--- a/v7/src/runtime/system.scm
+++ b/v7/src/runtime/system.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: system.scm,v 14.11 1998/02/12 06:03:15 cph Exp $
+$Id: system.scm,v 14.12 1998/02/12 06:08:47 cph Exp $
 
 Copyright (c) 1988-98 Massachusetts Institute of Technology
 
@@ -80,7 +80,13 @@ MIT in each case. |#
            (loop entries (cdr entries))))))
 
 (define (get-subsystem-names)
-  (map car subsystem-identifications))
+  (map (lambda (entry)
+        (let ((s (car entry)))
+          (let ((i (string-find-next-char s #\space)))
+            (if i
+                (string-head s i)
+                s))))
+       subsystem-identifications))
 
 (define (get-subsystem-version name)
   (let ((entry (find-entry name)))