From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Feb 1998 06:08:47 +0000 (+0000)
Subject: Eliminate "system" datatype.  Replace it by a simpler "subsystem
X-Git-Tag: 20090517-FFI~4860
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=84076d29323affc07e0ab7c4a6a008724b014c49;p=mit-scheme.git

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 0851ef9c4..4a8c47fa5 100644
--- 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)))