Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-11-17 21:46:54 -06:00
commit 983a42bcde
2 changed files with 4 additions and 2 deletions
basis/locals
extra/hardware-info/windows

View File

@ -229,6 +229,8 @@ M: tuple rewrite-element
M: local rewrite-element , ;
M: local-reader rewrite-element , ;
M: word rewrite-element literalize , ;
M: object rewrite-element , ;

View File

@ -18,7 +18,7 @@ IN: hardware-info.windows
: processor-architecture ( -- n )
system-info SYSTEM_INFO-dwOemId HEX: ffff0000 bitand ;
: os-version
: os-version ( -- os-version )
"OSVERSIONINFO" <c-object>
"OSVERSIONINFO" heap-size over set-OSVERSIONINFO-dwOSVersionInfoSize
[ GetVersionEx ] keep swap zero? [ win32-error ] when ;
@ -67,4 +67,4 @@ IN: hardware-info.windows
{
{ [ os wince? ] [ "hardware-info.windows.ce" ] }
{ [ os winnt? ] [ "hardware-info.windows.nt" ] }
} cond [ require ] when* >>
} cond require >>