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

remove debug info

db4
Doug Coleman 2008-02-29 18:05:38 -06:00
parent 4f40f10b88
commit 2dffb31e53
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,12 +22,11 @@ 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 break ; ] 3curry unique-retries retry ;
: 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