9.2.2: Add microcode-id/operating-system-suffix.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 2627eefcbcb40cf15a53f0bfb4e0eb1907b0f330..ff0193a4a796f35fc2d499935b65611e5db951f4 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2826,6 +2826,7 @@ USA.
          microcode-id/machine-type
          microcode-id/operating-system
          microcode-id/operating-system-name
+         microcode-id/operating-system-suffix
          microcode-id/operating-system-variant
          microcode-id/stack-type
          microcode-id/tty-x-size

diff --git a/src/runtime/utabs.scm b/src/runtime/utabs.scm
index 113eb8fd834a40a293e7f76c407c44f0d4fa6603..ad9092765cae91de7611c23dac59ea8533d2bc29 100644 (file)
--- a/src/runtime/utabs.scm
+++ b/src/runtime/utabs.scm
@@ -104,6 +104,14 @@ USA.
 (define microcode-id/stack-type)
 (define microcode-id/machine-type)
 (define microcode-id/compiled-code-type)
+
+(define (microcode-id/operating-system-suffix #!optional os-type)
+  (case (if (default-object? os-type)
+           microcode-id/operating-system
+           os-type)
+    ((NT) "w32")
+    ((UNIX) "unx")
+    (else (error "Unknown operating system:" os-type))))
 \f
 (define-integrable fixed-objects-slot 15)
 (define non-object-slot)

diff --git a/src/runtime/version.scm b/src/runtime/version.scm
index c8fc6ab053087227416a21970972d361279eedf0..a3dacaa6a4013105b19766d1793891a7465adc67 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" '(9 2 1))
+   (add-subsystem-identification! "Release" '(9 2 2))
    (snarf-microcode-version!)
    (add-event-receiver! event:after-restore snarf-microcode-version!)
    (add-subsystem-identification! "Runtime" '(15 7))))