From 82f3239012690afbc3f884cb5b6777d63948e976 Mon Sep 17 00:00:00 2001
From: erg <erg@ergb.local>
Date: Thu, 3 Apr 2008 18:40:51 -0500
Subject: [PATCH] remove private stuff

---
 extra/io/unix/files/files.factor       | 4 ----
 extra/io/windows/nt/files/files.factor | 4 ----
 2 files changed, 8 deletions(-)

diff --git a/extra/io/unix/files/files.factor b/extra/io/unix/files/files.factor
index 3085827483..39c18b4601 100755
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@@ -8,8 +8,6 @@ io.files.private ;
 
 IN: io.unix.files
 
-<PRIVATE
-
 M: unix cwd ( -- path )
     MAXPATHLEN [ <byte-array> ] [ ] bi getcwd
     [ (io-error) ] unless* ;
@@ -17,8 +15,6 @@ M: unix cwd ( -- path )
 M: unix cd ( path -- )
     chdir io-error ;
 
-PRIVATE>
-
 : read-flags O_RDONLY ; inline
 
 : open-read ( path -- fd )
diff --git a/extra/io/windows/nt/files/files.factor b/extra/io/windows/nt/files/files.factor
index 590bc59023..7bac540ddc 100755
--- a/extra/io/windows/nt/files/files.factor
+++ b/extra/io/windows/nt/files/files.factor
@@ -5,8 +5,6 @@ alien.c-types alien.arrays sequences combinators combinators.lib
 sequences.lib ascii splitting alien strings assocs namespaces ;
 IN: io.windows.nt.files
 
-<PRIVATE
-
 M: winnt cwd
     MAX_UNICODE_PATH dup "ushort" <c-array>
     [ GetCurrentDirectory win32-error=0/f ] keep
@@ -15,8 +13,6 @@ M: winnt cwd
 M: winnt cd
     SetCurrentDirectory win32-error=0/f ;
 
-PRIVATE>
-
 : unicode-prefix ( -- seq )
     "\\\\?\\" ; inline