fix hardware-info for windows

extra/hardware-info/backend/backend.factor

@@ -11,4 +11,3 @@ HOOK: available-page-file os ( -- n )
 HOOK: total-virtual-mem os ( -- n )
 HOOK: available-virtual-mem os ( -- n )
 HOOK: available-virtual-extended-mem os ( -- n )
-

extra/hardware-info/windows/backend/backend.factor

@@ -0,0 +1,6 @@
+IN: hardware-info.windows.backend
+
+TUPLE: wince ;
+TUPLE: winnt ;
+UNION: windows wince winnt ;
+

extra/hardware-info/windows/nt/nt.factor

@@ -1,4 +1,4 @@
-USING: alien alien.c-types hardware-info hardware-info.windows
+USING: alien alien.c-types hardware-info.windows.backend
 kernel libc math namespaces hardware-info.backend
 windows windows.advapi32 windows.kernel32 ;
 IN: hardware-info.windows.nt

extra/hardware-info/windows/windows.factor

@@ -1,11 +1,9 @@
 USING: alien alien.c-types kernel libc math namespaces
 windows windows.kernel32 windows.advapi32
+hardware-info.windows.backend
 words combinators vocabs.loader hardware-info.backend ;
 IN: hardware-info.windows
 
-TUPLE: wince ;
-TUPLE: winnt ;
-UNION: windows wince winnt ;
 USE: system
 
 : system-info ( -- SYSTEM_INFO )