diff --git a/extra/io/files/unique/unique.factor b/extra/io/files/unique/unique.factor index 8c0666161e..1e77cd6814 100644 --- a/extra/io/files/unique/unique.factor +++ b/extra/io/files/unique/unique.factor @@ -22,12 +22,11 @@ IN: io.files.unique PRIVATE> : make-unique-file ( prefix suffix -- path stream ) -break temporary-path -rot [ unique-length random-name swap 3append path+ dup (make-unique-file) - ] 3curry unique-retries retry break ; + ] 3curry unique-retries retry ; : with-unique-file ( quot -- path ) >r f f make-unique-file r> rot [ with-stream ] dip ; inline