libc: Fix load error on windows.

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index fdb8ca6487c4187b4e5aca37dcc06f783fe6387a..15f2db82fbbb0aab3751ce2f02ca5ec49f4da7ad 100644 (file)
--- a/basis/libc/libc.factor
+++ b/basis/libc/libc.factor
@@ -7,6 +7,8 @@ combinators continuations destructors destructors.private kernel math
 namespaces prettyprint sequences sets summary system vocabs vocabs.parser ;
 IN: libc
 
+HOOK: strerror os ( errno -- str )
+
 << "libc." os unparse append require >>
 
 LIBRARY: factor
@@ -37,8 +39,6 @@ FUNCTION-ALIAS: (free)
 FUNCTION-ALIAS: (realloc)
     void* realloc ( void* alien, size_t size ) ;
 
-HOOK: strerror os ( errno -- str )
-
 FUNCTION: int strerror_r ( int errno, char* buf, size_t buflen ) ;
 
 ERROR: libc-error errno message ;

diff --git a/basis/libc/windows/windows.factor b/basis/libc/windows/windows.factor
index afaecf9b38a8565b4dd426ba326746c93b4e8134..541cd7b84aecddb73a990c01e7b54c649de6a5b3 100644 (file)
--- a/basis/libc/windows/windows.factor
+++ b/basis/libc/windows/windows.factor
@@ -1,4 +1,5 @@
-USING: alien.strings destructors kernel libc system ;
+USING: alien.c-types alien.strings alien.syntax destructors
+kernel libc system ;
 IN: libc
 
 LIBRARY: libc