From 374f8acae219eee04b376869644f64d58ca0a654 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 29 Jan 2008 11:40:50 -0600
Subject: [PATCH] fix hardware-info for windows

---
 extra/hardware-info/backend/backend.factor         | 1 -
 extra/hardware-info/windows/backend/backend.factor | 6 ++++++
 extra/hardware-info/windows/nt/nt.factor           | 2 +-
 extra/hardware-info/windows/windows.factor         | 4 +---
 4 files changed, 8 insertions(+), 5 deletions(-)
 create mode 100644 extra/hardware-info/windows/backend/backend.factor

diff --git a/extra/hardware-info/backend/backend.factor b/extra/hardware-info/backend/backend.factor
index d79678de0c..17794c196d 100644
--- a/extra/hardware-info/backend/backend.factor
+++ b/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 )
-
diff --git a/extra/hardware-info/windows/backend/backend.factor b/extra/hardware-info/windows/backend/backend.factor
new file mode 100644
index 0000000000..516603c441
--- /dev/null
+++ b/extra/hardware-info/windows/backend/backend.factor
@@ -0,0 +1,6 @@
+IN: hardware-info.windows.backend
+
+TUPLE: wince ;
+TUPLE: winnt ;
+UNION: windows wince winnt ;
+
diff --git a/extra/hardware-info/windows/nt/nt.factor b/extra/hardware-info/windows/nt/nt.factor
index f412754cdf..8a58e5c168 100644
--- a/extra/hardware-info/windows/nt/nt.factor
+++ b/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
diff --git a/extra/hardware-info/windows/windows.factor b/extra/hardware-info/windows/windows.factor
index a49e4f254a..caf859c35e 100755
--- a/extra/hardware-info/windows/windows.factor
+++ b/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 )