remove private stuff
parent
344a98802f
commit
82f3239012
|
@ -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 )
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue