Fix free-fonts so it works independently of close-world

library/ui/hand.factor

@@ -114,8 +114,5 @@ V{ } clone hand-buttons set-global
     [ drop ] [ deque dup layout repaint layout-queued ] if ;
 
 : close-world ( world -- )
-    dup world-handle select-gl-context
-    f over request-focus*
-    dup remove-notify
-    dup free-fonts
-    f swap set-world-handle ;
+    f over request-focus* dup remove-notify
+    dup free-fonts f swap set-world-handle ;

library/ui/world.factor

@@ -12,6 +12,7 @@ namespaces opengl sequences ;
 TUPLE: world glass status focus fonts handle ;
 
 : free-fonts ( world -- )
+    dup world-handle select-gl-context
     world-fonts dup hash-values [ free-sprites ] each
     clear-hash ;