From f05954c5a9b6a2a58f7a97e3a8ee94195cb9b018 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 Aug 2012 21:35:28 -0700
Subject: [PATCH] core-text: use cached-lines get-global.

---
 basis/core-text/core-text.factor         | 2 +-
 basis/ui/text/core-text/core-text.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index ad25e3adb0..2927862e26 100644
--- a/basis/core-text/core-text.factor
+++ b/basis/core-text/core-text.factor
@@ -164,6 +164,6 @@ M: line dispose* line>> CFRelease ;
 SYMBOL: cached-lines
 
 : cached-line ( font string -- line )
-    cached-lines get [ <line> ] 2cache ;
+    cached-lines get-global [ <line> ] 2cache ;
 
 [ <cache-assoc> cached-lines set-global ] "core-text" add-startup-hook
diff --git a/basis/ui/text/core-text/core-text.factor b/basis/ui/text/core-text/core-text.factor
index e864c828e8..ddde9fe7e3 100644
--- a/basis/ui/text/core-text/core-text.factor
+++ b/basis/ui/text/core-text/core-text.factor
@@ -15,7 +15,7 @@ M: core-text-renderer string-dim
     if-empty ;
 
 M: core-text-renderer flush-layout-cache
-    cached-lines get purge-cache ;
+    cached-lines get-global purge-cache ;
 
 M: core-text-renderer string>image ( font string -- image loc )
     cached-line [ line>image ] [ loc>> ] bi ;