From 78dcc5bc3364f16794bac715be79b94c8c4e7697 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 2 Jun 2010 02:58:04 -0400
Subject: [PATCH] Move system word from unix.ffi to libc since its not
 Unix-specific

---
 basis/libc/libc.factor    | 2 ++
 basis/unix/ffi/ffi.factor | 1 -
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index a2ed34c267..68d041ac8f 100644
--- a/basis/libc/libc.factor
+++ b/basis/libc/libc.factor
@@ -100,5 +100,7 @@ FUNCTION: int memcmp ( void* a, void* b, ulong size ) ;
 
 FUNCTION: size_t strlen ( c-string alien ) ;
 
+FUNCTION: int system ( c-string command ) ;
+
 DESTRUCTOR: free
 DESTRUCTOR: (free)
diff --git a/basis/unix/ffi/ffi.factor b/basis/unix/ffi/ffi.factor
index 1809ee4b68..26cdc22bc1 100644
--- a/basis/unix/ffi/ffi.factor
+++ b/basis/unix/ffi/ffi.factor
@@ -151,7 +151,6 @@ FUNCTION: int setuid ( uid_t uid ) ;
 FUNCTION: int socket ( int domain, int type, int protocol ) ;
 FUNCTION: int symlink ( c-string path1, c-string path2 ) ;
 FUNCTION: int link ( c-string path1, c-string path2 ) ;
-FUNCTION: int system ( c-string command ) ;
 FUNCTION: int unlink ( c-string path ) ;
 FUNCTION: int utimes ( c-string path, timeval[2] times ) ;
 FUNCTION: ssize_t write ( int fd, void* buf, size_t nbytes ) ;