From 52e5cf6608946c86d9c0ca9a17e19906d7f17daa Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 10 Jun 2013 10:22:39 -0700
Subject: [PATCH] system-info.macosx: code name for 10.9.

---
 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 38cec11a74..00f5f01051 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{
+    { 0x1090 "Mavericks" }
     { 0x1080 "Mountain Lion" }
     { 0x1070 "Lion" }
     { 0x1060 "Snow Leopard" }