use radix literals

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

diff --git a/basis/windows/dwmapi/dwmapi.factor b/basis/windows/dwmapi/dwmapi.factor
index 60fa5b4d83e8fc8e1e06c24273dfaace5efe9513..1a012939179acbf298cb8088aa46c6d3784f3d0a 100755 (executable)
--- a/basis/windows/dwmapi/dwmapi.factor
+++ b/basis/windows/dwmapi/dwmapi.factor
@@ -30,9 +30,9 @@ FUNCTION: HRESULT DwmExtendFrameIntoClientArea ( HWND hWnd, MARGINS* pMarInset )
 FUNCTION: HRESULT DwmEnableBlurBehindWindow ( HWND hWnd, DWM_BLURBEHIND* pBlurBehind ) ;
 FUNCTION: HRESULT DwmIsCompositionEnabled ( BOOL* pfEnabled ) ;
 
-CONSTANT: WM_DWMCOMPOSITIONCHANGED HEX: 31E
+CONSTANT: WM_DWMCOMPOSITIONCHANGED 0x31E
 
 : composition-enabled? ( -- ? )
     windows-major 6 >=
-    [ 0 <int> [ DwmIsCompositionEnabled drop ] keep *int c-bool> ]
+    [ { bool } [ DwmIsCompositionEnabled drop ] with-out-parameters ]
     [ f ] if ;