fix with-unique-file

db4
Doug Coleman 2008-02-29 17:10:22 -06:00
parent 93a8cbcac3
commit b7f9aac210
3 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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

View File

@ -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 )