From 84076d29323affc07e0ab7c4a6a008724b014c49 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 12 Feb 1998 06:08:47 +0000 Subject: [PATCH] Eliminate "system" datatype. Replace it by a simpler "subsystem identification" mechanism. --- v7/src/runtime/system.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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))) -- 2.25.1