From: Alexander Iljin <ajsoft@yandex.ru>
Date: Mon, 25 Jul 2016 16:29:25 +0000 (+0300)
Subject: windows.fonts: call reset-memoized for windows-fonts on startup
X-Git-Tag: unmaintained~825
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=4f74f5bd698b253a63fa0ce626f4b86405a9714e

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

diff --git a/basis/windows/fonts/fonts.factor b/basis/windows/fonts/fonts.factor
index 700f4c42d5..8e61d2989a 100644
--- 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 {