]> birchwood-abbey.net Git - mit-scheme.git/commitdiff
Change os-name to be from uname.
authorChris Hanson <org/chris-hanson/cph>
Thu, 22 Sep 2022 19:52:13 +0000 (12:52 -0700)
committerChris Hanson <org/chris-hanson/cph>
Thu, 22 Sep 2022 19:52:13 +0000 (12:52 -0700)
This is because os-version is the kernel version, not the operating-system
version.

src/runtime/unxprm.scm

index d1c6b63d47da5e28f68dcdef61254796887b907f..f27a30f845187c65e95e14977a2bcf851c1eeb01 100644 (file)
@@ -487,7 +487,7 @@ USA.
   (vector-ref (unix/uname) 1))
 
 (define (os-name)
-  microcode-id/operating-system-variant)
+  (vector-ref (unix/uname) 0))
 
 (define (os-version)
   (string-append (vector-ref (unix/uname) 2)