From 3413fd6f1436f901a4a8b6e670d29dd1743b9e24 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 1 Nov 2012 16:43:26 -0700
Subject: [PATCH] core-text: better check.

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

diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index 6f9a7d9dbd..356f2d9f83 100644
--- a/basis/core-text/core-text.factor
+++ b/basis/core-text/core-text.factor
@@ -117,7 +117,7 @@ render-loc render-dim ;
 :: <line> ( font string -- line )
     [
         line new-disposable
-        font retina? [ cache-font@2x ] [ cache-font ] if :> open-font
+        font retina? get-global [ cache-font@2x ] [ cache-font ] if :> open-font
         string open-font font foreground>> <CTLine> |CFRelease :> line
         open-font line compute-line-metrics
         [ >>metrics ] [ metrics>dim >>dim ] bi