fix with-unique-file
parent
93a8cbcac3
commit
b7f9aac210
|
@ -29,7 +29,7 @@ PRIVATE>
|
|||
] 3curry unique-retries retry ;
|
||||
|
||||
: with-unique-file ( quot -- path )
|
||||
>r f f make-unique-file r> with-stream ; inline
|
||||
>r f f make-unique-file r> rot [ with-stream ] dip ; inline
|
||||
|
||||
: with-temporary-file ( quot -- )
|
||||
with-unique-file delete-file ; inline
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: io.unix.backend io.unix.files io.unix.sockets io.timeouts
|
||||
io.unix.launcher io.unix.mmap io.backend io.files.unique
|
||||
io.unix.launcher io.unix.mmap io.backend io.unix.files.unique
|
||||
combinators namespaces system vocabs.loader sequences ;
|
||||
|
||||
"io.unix." os append require
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
USING: kernel system ;
|
||||
USING: kernel system io.files.unqiue io.files.unique.backend ;
|
||||
IN: io.windows.files.unique
|
||||
|
||||
M: windows-io (make-unique-file) ( path -- stream )
|
||||
|
|
Loading…
Reference in New Issue