remove private stuff

db4
erg 2008-04-03 18:40:51 -05:00
parent 344a98802f
commit 82f3239012
2 changed files with 0 additions and 8 deletions

View File

@ -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 )

View File

@ -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