From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 27 Apr 2017 16:05:17 +0000 (-0700)
Subject: 9.2.2: Add microcode-id/operating-system-suffix.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=refs%2Fheads%2Frelease-9.2;p=mit-scheme.git

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

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 2627eefcb..ff0193a4a 100644
--- 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 113eb8fd8..ad9092765 100644
--- 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))))
 
 (define-integrable fixed-objects-slot 15)
 (define non-object-slot)
diff --git a/src/runtime/version.scm b/src/runtime/version.scm
index c8fc6ab05..a3dacaa6a 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" '(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))))