]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/system-info/windows/windows.factor
use radix literals
[factor.git] / basis / system-info / windows / windows.factor
index 9af9910aba74fdf476eaa68bb5f3032d053122a8..7bd5a8b8fd63ecc9461a167646a0cb618ca84327 100644 (file)
@@ -20,7 +20,7 @@ IN: system-info.windows
 
 ! 0 = x86, 6 = Intel Itanium, 9 = x64 (AMD or Intel), 10 = WOW64, 0xffff = Unk
 : processor-architecture ( -- n )
-    system-info dwOemId>> HEX: ffff0000 bitand ;
+    system-info dwOemId>> 0xffff0000 bitand ;
 
 : os-version-struct ( -- os-version )
     OSVERSIONINFO <struct>