system-info.macosx: new code name Mojave.

paths
John Benediktsson 2018-06-04 11:38:51 -07:00
parent aa87e69d25
commit e19bb995fa
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{
{ { 10 14 } "Mojave" }
{ { 10 13 } "High Sierra" }
{ { 10 12 } "Sierra" }
{ { 10 11 } "El Capitan" }