libc: Fix strerror for unix.

basis/libc/libc.factor

@@ -9,6 +9,10 @@ IN: libc
 
 HOOK: strerror os ( errno -- str )
 
+! For strerror on Unix all platforms
+<< os windows? [ "libc.unix" require ] unless >>
+
+! For libc.linux, libc.windows, libc.macosx...
 << "libc." os unparse append require >>
 
 LIBRARY: factor

basis/libc/unix/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

basis/libc/unix/platforms.txt

@@ -0,0 +1 @@
+unix

basis/libc/unix/unix.factor

@@ -0,0 +1,10 @@
+! Copyright (C) 2014 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien.strings destructors kernel libc system ;
+IN: libc.unix
+
+M: unix strerror ( errno -- str )
+    [
+        1024 [ malloc &free ] keep [ strerror_r ] 2keep drop nip
+        alien>native-string
+    ] with-destructors ;