destroy window-resources in reverse order

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index 8ac2cdd36fa06383de6144e7480270ca5b74f3ab..2486e701c0cec64c26cffb529785dc88575fdcfa 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -95,7 +95,7 @@ M: world graft*
         [ hand-clicked close-global ]
         [ hand-gadget close-global ]
         [ end-world ]
-        [ [ [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ]
+        [ [ <reversed> [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ]
     } cleave ;
 
 M: world ungraft*