system-info.macosx: adding codename for macOS Monterey.

diff --git a/basis/system-info/macosx/macosx.factor b/basis/system-info/macosx/macosx.factor
index e7e919d93031b5b481b74ea5158216daff28c23c..3f5591eb78e4995e74be3862cecd6fb8c0c3e762 100644 (file)
--- 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 ;