: system-version-bugfix ( -- n ) "sys3" be> gestalt ;
CONSTANT: system-code-names H{
+ { { 12 0 } "Monterey" }
{ { 11 0 } "Big Sur" }
{ { 10 16 } "Big Sur" }
{ { 10 15 } "Catalina" }
: available-cpus ( -- n ) { 6 25 } sysctl-query-uint ;
M: macosx computer-name { 1 10 } sysctl-query-string "." split1 drop ;
-M: macosx username real-user-name ;
\ No newline at end of file
+M: macosx username real-user-name ;