From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 15 Aug 2015 02:45:47 +0000 (-0700)
Subject: windows.directx.dinput.constants: simplify uninitialize.
X-Git-Tag: unmaintained~2073
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3e9d80edf14c5dd3ca517a59e04768e130a13eef

windows.directx.dinput.constants: simplify uninitialize.
---

diff --git a/basis/windows/directx/dinput/constants/constants.factor b/basis/windows/directx/dinput/constants/constants.factor
index b0b78b68a5..4c4ddcde7a 100755
--- 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 ( -- )
     {