steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

windows.directx.dinput.constants: simplify uninitialize.

db4
John Benediktsson 2015-08-14 19:45:47 -07:00
parent 1e64f03870
commit 3e9d80edf1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/windows/directx/dinput/constants/constants.factor
View File

@ -835,7 +835,7 @@ MACRO: <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
[ define-constants ] "windows.directx.dinput.constants" add-startup-hook [ define-constants ] "windows.directx.dinput.constants" add-startup-hook
: uninitialize ( variable quot -- ) : uninitialize ( variable quot -- )
[ [ get-global ] dip when* ] [ drop global delete-at ] 2bi ; inline '[ _ when* f ] change-global ; inline
: free-dinput-constants ( -- ) : free-dinput-constants ( -- )
{ {