system-info.macosx: fix system-code-name for Version 11/12.

diff --git a/basis/system-info/macosx/macosx.factor b/basis/system-info/macosx/macosx.factor
index 6dfd4cfabb8161cb319888c60d9d77f3d9ad1386..61fb79ee8bf9dd510fe38fb36a11f3bfa48115a0 100644 (file)
--- a/basis/system-info/macosx/macosx.factor
+++ b/basis/system-info/macosx/macosx.factor
@@ -44,7 +44,8 @@ CONSTANT: system-code-names H{
 }
 
 : system-code-name ( -- str/f )
-    system-version-major system-version-minor 2array
+    system-version-major
+    dup 10 = [ system-version-minor ] [ 0 ] if 2array
     system-code-names at ;
 
 PRIVATE>