core/basis/extra: using STARTUP-HOOK: and SHUTDOWN-HOOK:

[factor.git] / basis / core-text / fonts / fonts.factor

diff --git a/basis/core-text/fonts/fonts.factor b/basis/core-text/fonts/fonts.factor
index a91a52bf04a65017a390a086a464868dea975067..3900fc382352b8a65a372aa2b45ed80cd21092f2 100644 (file)
--- a/basis/core-text/fonts/fonts.factor
+++ b/basis/core-text/fonts/fonts.factor
@@ -118,7 +118,7 @@ MEMO: (cache-font-metrics) ( name size traits -- metrics )
 : cache-font-metrics ( font -- metrics )
     [ name>> ] [ size>> ] [ font-traits ] tri (cache-font-metrics) ;
 
-[
+STARTUP-HOOK: [
     \ (cache-font) reset-memoized
     \ (cache-font-metrics) reset-memoized
-] "core-text.fonts" add-startup-hook
+]