From 6f2192bb7f597692e270ec8f3826a6179909031b Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 13 May 2008 18:40:09 -0500
Subject: [PATCH] unix: add unlink-file

---
 extra/unix/unix.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/unix/unix.factor b/extra/unix/unix.factor
index 5bdeeebd19..a34bd85dc3 100755
--- a/extra/unix/unix.factor
+++ b/extra/unix/unix.factor
@@ -164,7 +164,11 @@ FUNCTION: int socket ( int domain, int type, int protocol ) ;
 FUNCTION: char* strerror ( int errno ) ;
 FUNCTION: int symlink ( char* path1, char* path2 ) ;
 FUNCTION: int system ( char* command ) ;
+
 FUNCTION: int unlink ( char* path ) ;
+
+: unlink-file ( path -- ) [ unlink ] unix-system-call ;
+
 FUNCTION: int utimes ( char* path, timeval[2] times ) ;
 
 : SIGKILL 9 ; inline