From e0087723c349aa96a75390a96680230bce01ccde Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 24 Apr 2014 12:10:13 -0700
Subject: [PATCH] core-text.fonts: change to "LucidaGrande" to match Postscript
 name.

---
 basis/core-text/fonts/fonts.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/core-text/fonts/fonts.factor b/basis/core-text/fonts/fonts.factor
index 43a527de0b..0ebc40f523 100644
--- a/basis/core-text/fonts/fonts.factor
+++ b/basis/core-text/fonts/fonts.factor
@@ -78,7 +78,7 @@ FUNCTION: CGFloat CTFontGetXHeight ( CTFontRef font ) ;
 CONSTANT: font-names
     H{
         { "monospace" "Monaco" }
-        { "sans-serif" "Lucida Grande" }
+        { "sans-serif" "LucidaGrande" }
         { "serif" "Times" }
     }