From 4f74f5bd698b253a63fa0ce626f4b86405a9714e Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Mon, 25 Jul 2016 19:29:25 +0300
Subject: [PATCH] windows.fonts: call reset-memoized for windows-fonts on
 startup

---
 basis/windows/fonts/fonts.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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 {
-- 
2.34.1