From 6da3e88de5b8c01135c23b4ba418296829207e02 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sat, 10 May 2008 06:12:54 -0500
Subject: [PATCH] Move error words from unix to unix.ffi

---
 extra/unix/ffi/ffi.factor | 5 ++++-
 extra/unix/unix.factor    | 4 ++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/extra/unix/ffi/ffi.factor b/extra/unix/ffi/ffi.factor
index ec3daab880..e39d95dfa3 100644
--- a/extra/unix/ffi/ffi.factor
+++ b/extra/unix/ffi/ffi.factor
@@ -9,4 +9,7 @@ C-STRUCT: utimbuf
     { "time_t" "actime"  }
     { "time_t" "modtime" } ;
 
-FUNCTION: int utime ( char* path, utimebuf* buf ) ;
\ No newline at end of file
+FUNCTION: int utime ( char* path, utimebuf* buf ) ;
+
+FUNCTION: int err_no ( ) ;
+FUNCTION: char* strerror ( int errno ) ;
\ No newline at end of file
diff --git a/extra/unix/unix.factor b/extra/unix/unix.factor
index ad8b5711b8..96c5c7bf66 100755
--- a/extra/unix/unix.factor
+++ b/extra/unix/unix.factor
@@ -29,7 +29,7 @@ TYPEDEF: ulong size_t
 
 ! ! ! Unix functions
 LIBRARY: factor
-FUNCTION: int err_no ( ) ;
+! FUNCTION: int err_no ( ) ;
 FUNCTION: void clear_err_no ( ) ;
 
 LIBRARY: libc
@@ -78,7 +78,7 @@ FUNCTION: void* mmap ( void* addr, size_t len, int prot, int flags, int fd, off_
 FUNCTION: int munmap ( void* addr, size_t len ) ;
 FUNCTION: uint ntohl ( uint n ) ;
 FUNCTION: ushort ntohs ( ushort n ) ;
-FUNCTION: char* strerror ( int errno ) ;
+! FUNCTION: char* strerror ( int errno ) ;
 
 : open ( path flags prot -- int ) [ unix.ffi:open ] unix-system-call ;