]> gitweb.factorcode.org Git - factor.git/commitdiff
Fix compile errors in hardware-info.windows
authorU-SLAVA-DFB8FF805\Slava <Slava@slava-dfb8ff805.(none)>
Tue, 18 Nov 2008 02:40:53 +0000 (20:40 -0600)
committerU-SLAVA-DFB8FF805\Slava <Slava@slava-dfb8ff805.(none)>
Tue, 18 Nov 2008 02:40:53 +0000 (20:40 -0600)
extra/hardware-info/windows/windows.factor

index 31624969742e9a8d6f5bdb635fdc6b7d945b06eb..3aa6824ff6b4dacd42f11c30ff1c7bf137c48469 100755 (executable)
@@ -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 >>