windows.directx.dinput.constants: simplify uninitialize.

2015-08-14 19:45:47 -07:00 · 2015-08-14 19:45:47 -07:00 · 3e9d80edf1
parent 1e64f03870
commit 3e9d80edf1
1 changed files with 1 additions and 1 deletions
--- a/basis/windows/directx/dinput/constants/constants.factor
+++ b/basis/windows/directx/dinput/constants/constants.factor
@ -835,7 +835,7 @@ MACRO: <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
 [ define-constants ] "windows.directx.dinput.constants" add-startup-hook

 : uninitialize ( variable quot -- )
-    [ [ get-global ] dip when* ] [ drop global delete-at ] 2bi ; inline
+    '[ _ when* f ] change-global ; inline

 : free-dinput-constants ( -- )
    {