steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/unix/files/files.factor
View File

@ -8,8 +8,6 @@ io.files.private ;
IN: io.unix.files IN: io.unix.files
<PRIVATE
M: unix cwd ( -- path ) M: unix cwd ( -- path )
MAXPATHLEN [ <byte-array> ] [ ] bi getcwd MAXPATHLEN [ <byte-array> ] [ ] bi getcwd
[ (io-error) ] unless* ; [ (io-error) ] unless* ;
@ -17,8 +15,6 @@ M: unix cwd ( -- path )
M: unix cd ( path -- ) M: unix cd ( path -- )
chdir io-error ; chdir io-error ;
PRIVATE>
: read-flags O_RDONLY ; inline : read-flags O_RDONLY ; inline
: open-read ( path -- fd ) : open-read ( path -- fd )

4
extra/io/windows/nt/files/files.factor
View File

@ -5,8 +5,6 @@ alien.c-types alien.arrays sequences combinators combinators.lib
sequences.lib ascii splitting alien strings assocs namespaces ; sequences.lib ascii splitting alien strings assocs namespaces ;
IN: io.windows.nt.files IN: io.windows.nt.files
<PRIVATE
M: winnt cwd M: winnt cwd
MAX_UNICODE_PATH dup "ushort" <c-array> MAX_UNICODE_PATH dup "ushort" <c-array>
[ GetCurrentDirectory win32-error=0/f ] keep [ GetCurrentDirectory win32-error=0/f ] keep
@ -15,8 +13,6 @@ M: winnt cwd
M: winnt cd M: winnt cd
SetCurrentDirectory win32-error=0/f ; SetCurrentDirectory win32-error=0/f ;
PRIVATE>
: unicode-prefix ( -- seq ) : unicode-prefix ( -- seq )
"\\\\?\\" ; inline "\\\\?\\" ; inline