core-text: use cached-lines get-global.

diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index ad25e3adb00426e09ed3ba02dbc7a8bcc7fe35dc..2927862e26597e0ce3672cbbe47a2708574d455c 100644 (file)
--- 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 e864c828e8634a6a4a5162c3bfbfc6cb2e690434..ddde9fe7e36af0a830f375c6ae5464a2b5aa4347 100644 (file)
--- 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 ;