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

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

2
extra/io/files/unique/unique.factor
View File

@ -29,7 +29,7 @@ PRIVATE>
] 3curry unique-retries retry ; ] 3curry unique-retries retry ;
: with-unique-file ( quot -- path ) : 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-temporary-file ( quot -- )
with-unique-file delete-file ; inline with-unique-file delete-file ; inline

2
extra/io/unix/unix.factor
View File

@ -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.files.unique io.unix.launcher io.unix.mmap io.backend io.unix.files.unique
combinators namespaces system vocabs.loader sequences ; combinators namespaces system vocabs.loader sequences ;
"io.unix." os append require "io.unix." os append require

2
extra/io/windows/files/unique/unique.factor
View File

@ -1,4 +1,4 @@
USING: kernel system ; USING: kernel system io.files.unqiue 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 )