From e19bb995fab76b9127a80f469620236fbc89ecd4 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 4 Jun 2018 11:38:51 -0700
Subject: [PATCH] system-info.macosx: new code name Mojave.

---
 basis/system-info/macosx/macosx.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/system-info/macosx/macosx.factor b/basis/system-info/macosx/macosx.factor
index 366cc9df9d..ccdec7877e 100644
--- a/basis/system-info/macosx/macosx.factor
+++ b/basis/system-info/macosx/macosx.factor
@@ -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" }