From cb10f0d893589a69e59f93298f0a098eba2cb67f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 6 Jan 2019 23:50:47 -0800 Subject: [PATCH] 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. --- src/runtime/savres.scm | 11 ++++++++--- src/runtime/version.scm | 2 +- 2 files changed, 9 insertions(+), 4 deletions(-) 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)))) -- 2.25.1