system-info.macosx: code name for 10.9.

db4
John Benediktsson 2013-06-10 10:22:39 -07:00
parent 13389a8400
commit 52e5cf6608
1 changed files with 1 additions and 0 deletions

View File

@ -24,6 +24,7 @@ FUNCTION: OSErr Gestalt ( OSType selector, SInt32* response ) ;
: system-version-bugfix ( -- n ) "sys3" be> gestalt ;
CONSTANT: system-code-names H{
{ 0x1090 "Mavericks" }
{ 0x1080 "Mountain Lion" }
{ 0x1070 "Lion" }
{ 0x1060 "Snow Leopard" }