From de30882cb1b74ac77df1188f0103f5cb0593cf7f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 2 Apr 2008 19:23:37 -0500
Subject: [PATCH] fix load error
---
extra/hardware-info/hardware-info.factor | 4 +---
extra/hardware-info/windows/windows.factor | 4 ++--
2 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/extra/hardware-info/hardware-info.factor b/extra/hardware-info/hardware-info.factor
index 83e59b3123..ecdcc42cb5 100755
--- a/extra/hardware-info/hardware-info.factor
+++ b/extra/hardware-info/hardware-info.factor
@@ -6,11 +6,9 @@ IN: hardware-info
: megs. ( x -- ) 20 2^ /f . ;
: gigs. ( x -- ) 30 2^ /f . ;
-<<
-{
+<< {
{ [ os windows? ] [ "hardware-info.windows" ] }
{ [ os linux? ] [ "hardware-info.linux" ] }
{ [ os macosx? ] [ "hardware-info.macosx" ] }
{ [ t ] [ f ] }
} cond [ require ] when* >>
-
diff --git a/extra/hardware-info/windows/windows.factor b/extra/hardware-info/windows/windows.factor
index f3a1eb33f5..807fd158ba 100755
--- a/extra/hardware-info/windows/windows.factor
+++ b/extra/hardware-info/windows/windows.factor
@@ -65,6 +65,6 @@ IN: hardware-info.windows
<<
{
- { [ wince? ] [ "hardware-info.windows.ce" ] }
- { [ winnt? ] [ "hardware-info.windows.nt" ] }
+ { [ os wince? ] [ "hardware-info.windows.ce" ] }
+ { [ os winnt? ] [ "hardware-info.windows.nt" ] }
} cond [ require ] when* >>