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

fix stack effect

db4
Doug Coleman 2008-02-29 18:04:20 -06:00
parent adf5cfda59
commit 4f40f10b88
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
USING: io.backend ; USING: io.backend ;
IN: io.files.unique.backend IN: io.files.unique.backend
HOOK: (make-unique-file) io-backend ( prefix suffix -- stream path ) HOOK: (make-unique-file) io-backend ( path -- stream )
HOOK: temporary-path io-backend ( -- path ) HOOK: temporary-path io-backend ( -- path )

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

@ -22,11 +22,12 @@ IN: io.files.unique
PRIVATE> PRIVATE>
: make-unique-file ( prefix suffix -- path stream ) : make-unique-file ( prefix suffix -- path stream )
break
temporary-path -rot temporary-path -rot
[ [
unique-length random-name swap 3append path+ unique-length random-name swap 3append path+
dup (make-unique-file) dup (make-unique-file)
] 3curry unique-retries retry ; ] 3curry unique-retries retry break ;
: with-unique-file ( quot -- path ) : with-unique-file ( quot -- path )
>r f f make-unique-file r> rot [ with-stream ] dip ; inline >r f f make-unique-file r> rot [ with-stream ] dip ; inline