fix load error

db4
Doug Coleman 2008-04-02 19:23:37 -05:00
parent 0d8a27e5e4
commit de30882cb1
2 changed files with 3 additions and 5 deletions

View File

@ -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* >>

View File

@ -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* >>