fix bootstrap
parent
b7f9aac210
commit
ac6c91d5a6
|
@ -46,3 +46,8 @@ PRIVATE>
|
||||||
|
|
||||||
: with-temporary-directory ( quot -- )
|
: with-temporary-directory ( quot -- )
|
||||||
with-unique-directory delete-tree ; inline
|
with-unique-directory delete-tree ; inline
|
||||||
|
|
||||||
|
{
|
||||||
|
{ [ unix? ] [ "io.unix.files.unique" ] }
|
||||||
|
{ [ windows? ] [ "io.windows.files.unique" ] }
|
||||||
|
} cond require
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
USING: io.unix.backend io.unix.files io.unix.sockets io.timeouts
|
USING: io.unix.backend io.unix.files io.unix.sockets io.timeouts
|
||||||
io.unix.launcher io.unix.mmap io.backend io.unix.files.unique
|
io.unix.launcher io.unix.mmap io.backend
|
||||||
combinators namespaces system vocabs.loader sequences ;
|
combinators namespaces system vocabs.loader sequences ;
|
||||||
|
|
||||||
"io.unix." os append require
|
"io.unix." os append require
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: kernel system io.files.unqiue io.files.unique.backend ;
|
USING: kernel system io.files.unique.backend ;
|
||||||
IN: io.windows.files.unique
|
IN: io.windows.files.unique
|
||||||
|
|
||||||
M: windows-io (make-unique-file) ( path -- stream )
|
M: windows-io (make-unique-file) ( path -- stream )
|
||||||
|
|
|
@ -2,10 +2,10 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien alien.c-types arrays destructors io io.backend
|
USING: alien alien.c-types arrays destructors io io.backend
|
||||||
io.buffers io.files io.nonblocking io.sockets io.binary
|
io.buffers io.files io.nonblocking io.sockets io.binary
|
||||||
io.sockets.impl io.windows.files.unique windows.errors
|
io.sockets.impl windows.errors strings io.streams.duplex
|
||||||
strings io.streams.duplex kernel math namespaces sequences
|
kernel math namespaces sequences windows windows.kernel32
|
||||||
windows windows.kernel32 windows.shell32 windows.types
|
windows.shell32 windows.types windows.winsock splitting
|
||||||
windows.winsock splitting continuations math.bitfields ;
|
continuations math.bitfields ;
|
||||||
IN: io.windows
|
IN: io.windows
|
||||||
|
|
||||||
TUPLE: windows-nt-io ;
|
TUPLE: windows-nt-io ;
|
||||||
|
|
Loading…
Reference in New Issue