From 3e9d80edf14c5dd3ca517a59e04768e130a13eef Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 14 Aug 2015 19:45:47 -0700 Subject: [PATCH] windows.directx.dinput.constants: simplify uninitialize. --- basis/windows/directx/dinput/constants/constants.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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: ( 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 ( -- ) { -- 2.34.1