From df2e0dd4db588f182d95e017026947f1079a7ad3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 25 Oct 2021 13:07:40 -0700 Subject: [PATCH] system-info.macosx: adding codename for macOS Monterey. --- basis/system-info/macosx/macosx.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/system-info/macosx/macosx.factor b/basis/system-info/macosx/macosx.factor index e7e919d930..3f5591eb78 100644 --- a/basis/system-info/macosx/macosx.factor +++ b/basis/system-info/macosx/macosx.factor @@ -23,6 +23,7 @@ FUNCTION: OSErr Gestalt ( OSType selector, SInt32* response ) : 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" } @@ -105,4 +106,4 @@ M: macosx physical-mem { 6 24 } sysctl-query-ulonglong ; : 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 ; -- 2.34.1