From b029942d1da09c8649c97664251ceaa24485d4cd Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 13 May 2008 22:59:42 -0500 Subject: [PATCH] unix: close-file --- extra/unix/unix.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/extra/unix/unix.factor b/extra/unix/unix.factor index 8ce9ef5c87..002c9b38c2 100755 --- a/extra/unix/unix.factor +++ b/extra/unix/unix.factor @@ -69,7 +69,11 @@ FUNCTION: int bind ( int s, void* name, socklen_t namelen ) ; FUNCTION: int chdir ( char* path ) ; FUNCTION: int chown ( char* path, uid_t owner, gid_t group ) ; FUNCTION: int chroot ( char* path ) ; -FUNCTION: void close ( int fd ) ; + +FUNCTION: int close ( int fd ) ; + +: close-file ( fd -- ) [ close ] unix-system-call drop ; + FUNCTION: int connect ( int s, void* name, socklen_t namelen ) ; FUNCTION: int dup2 ( int oldd, int newd ) ; ! FUNCTION: int dup ( int oldd ) ;