run bootstrap and startup hooks inside a with-destructors. use &dispose instead...

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

diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor
index 1651e8b3d894e96b45d41c483cc39067e8b68982..87540dc24f7b050124f7829a32ab5b99342a9bd7 100755 (executable)
--- a/basis/windows/uniscribe/uniscribe.factor
+++ b/basis/windows/uniscribe/uniscribe.factor
@@ -113,8 +113,5 @@ SYMBOL: cached-script-strings
 : cached-script-string ( font string -- script-string )
     cached-script-strings get-global [ <script-string> ] 2cache ;
 
-[ <cache-assoc> cached-script-strings set-global ]
+[ <cache-assoc> &dispose cached-script-strings set-global ]
 "windows.uniscribe" add-startup-hook
-
-[ cached-script-strings get-global dispose ]
-"windows.uniscribe" add-shutdown-hook