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 a5953bc2b9eb4dcf468f0cece365b471c436bce8..11d58254267a58a0910f39b6b931397af8fc1b5c 100644 (file)
--- 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 379bb7d3228bbec3ba3f6eb21c850b77fe1503b9..0ccddc26e63da23202761687e9aff1e52b78f9e0 100644 (file)
--- 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))))