windows.fonts: call reset-memoized for windows-fonts on startup

[factor.git] / basis / windows / fonts / fonts.factor

diff --git a/basis/windows/fonts/fonts.factor b/basis/windows/fonts/fonts.factor
index 700f4c42d599037032b7ebb184423f1e1c7adff9..8e61d2989a27aa62969db93a290327c9d6c9bfd6 100644 (file)
--- a/basis/windows/fonts/fonts.factor
+++ b/basis/windows/fonts/fonts.factor
@@ -39,7 +39,10 @@ MEMO:: (cache-font) ( name size bold? italic? -- HFONT )
     { [ name>> ] [ size>> ] [ bold?>> ] [ italic?>> ] } cleave
     (cache-font) ;
 
-[ \ (cache-font) reset-memoized ] "windows.fonts" add-startup-hook
+[
+    \ (cache-font) reset-memoized
+    \ windows-fonts reset-memoized
+] "windows.fonts" add-startup-hook
 
 : TEXTMETRIC>metrics ( TEXTMETRIC -- metrics )
     [ metrics new 0 >>width ] dip {