From b7f9aac2106499deeb65db76d9977e3ac87200b8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 29 Feb 2008 17:10:22 -0600 Subject: [PATCH] fix with-unique-file --- extra/io/files/unique/unique.factor | 2 +- extra/io/unix/unix.factor | 2 +- extra/io/windows/files/unique/unique.factor | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/io/files/unique/unique.factor b/extra/io/files/unique/unique.factor index 3a1c3c46b8..b39a14c7f5 100644 --- a/extra/io/files/unique/unique.factor +++ b/extra/io/files/unique/unique.factor @@ -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 diff --git a/extra/io/unix/unix.factor b/extra/io/unix/unix.factor index 11cdc0aa3b..b7111c5eac 100755 --- a/extra/io/unix/unix.factor +++ b/extra/io/unix/unix.factor @@ -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 diff --git a/extra/io/windows/files/unique/unique.factor b/extra/io/windows/files/unique/unique.factor index 01e654751e..5f11bf6142 100644 --- a/extra/io/windows/files/unique/unique.factor +++ b/extra/io/windows/files/unique/unique.factor @@ -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 )