From ff4213003b6ba918db7b3103c12c69fc73a82049 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 28 Aug 2009 05:38:29 -0500 Subject: [PATCH] system-info.windows: fix load error --- extra/system-info/windows/nt/nt.factor | 4 ++-- extra/system-info/windows/windows.factor | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/extra/system-info/windows/nt/nt.factor b/extra/system-info/windows/nt/nt.factor index a6b4c8176f..2c13c8d5d2 100755 --- a/extra/system-info/windows/nt/nt.factor +++ b/extra/system-info/windows/nt/nt.factor @@ -4,11 +4,11 @@ USING: alien alien.c-types alien.strings kernel libc math namespaces system-info.backend system-info.windows windows windows.advapi32 windows.kernel32 system byte-arrays windows.errors -classes classes.struct ; +classes classes.struct accessors ; IN: system-info.windows.nt M: winnt cpus ( -- n ) - system-info SYSTEM_INFO-dwNumberOfProcessors ; + system-info dwNumberOfProcessors>> ; : memory-status ( -- MEMORYSTATUSEX ) "MEMORYSTATUSEX" diff --git a/extra/system-info/windows/windows.factor b/extra/system-info/windows/windows.factor index 34915d0b7b..e68f6ce62f 100755 --- a/extra/system-info/windows/windows.factor +++ b/extra/system-info/windows/windows.factor @@ -1,9 +1,9 @@ ! Copyright (C) 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: alien alien.c-types kernel libc math namespaces -windows windows.kernel32 windows.advapi32 -words combinators vocabs.loader system-info.backend -system alien.strings windows.errors ; +USING: alien alien.c-types classes.struct accessors kernel +math namespaces windows windows.kernel32 windows.advapi32 words +combinators vocabs.loader system-info.backend system +alien.strings windows.errors ; IN: system-info.windows : system-info ( -- SYSTEM_INFO )