From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Jan 2019 07:50:47 +0000 (-0800)
Subject: Change identify-world to show a very brief summary.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~12
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb10f0d893589a69e59f93298f0a098eba2cb67f;p=mit-scheme.git

Change identify-world to show a very brief summary.

* Remove versions from all of the subsystems, except the release.
* Remove microcode and runtime subsystems entirely.
---

diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index a5953bc2b..11d582542 100644
--- a/src/runtime/savres.scm
+++ b/src/runtime/savres.scm
@@ -143,11 +143,16 @@ USA.
 	  (write-string " at " port)
 	  (write-string (decoded-time/time-string time-world-saved) port)
 	  (newline port)))
-    (write-strings-in-columns (map get-subsystem-identification-string
-				   (get-subsystem-names))
+    (write-strings-in-columns (subsystem-summary)
 			      port
 			      #t
 			      1
 			      "  "
 			      " || "
-			      "")))
\ No newline at end of file
+			      "")))
+
+(define (subsystem-summary)
+  (cons (get-subsystem-identification-string "Release")
+	(lset-difference string=?
+			 (get-subsystem-names)
+			 '("Release" "Microcode" "Runtime"))))
\ No newline at end of file
diff --git a/src/runtime/version.scm b/src/runtime/version.scm
index 379bb7d32..0ccddc26e 100644
--- a/src/runtime/version.scm
+++ b/src/runtime/version.scm
@@ -39,7 +39,7 @@ USA.
 	 (let ((now last-copyright-year)
 	       (then 1986))
 	   (iota (+ (- now then) 1) then)))
-   (add-subsystem-identification! "Release" '(10 1 90))
+   (add-subsystem-identification! "Release" '(10 90))
    (snarf-microcode-version!)
    (add-event-receiver! event:after-restore snarf-microcode-version!)
    (add-subsystem-identification! "Runtime" '(15 7))))