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 - ] [ ] 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 - [ 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