core-text: better check.

2012-11-01 16:43:26 -07:00 · 2012-11-01 16:43:26 -07:00 · 39859f21dc
parent 4e4dd58c40
commit 39859f21dc
1 changed files with 1 additions and 1 deletions
--- 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