From ac6c91d5a626e7a47d9e23833131350d38e5f8e5 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 29 Feb 2008 17:44:53 -0600 Subject: [PATCH] fix bootstrap --- extra/io/files/unique/unique.factor | 5 +++++ extra/io/unix/unix.factor | 2 +- extra/io/windows/files/unique/unique.factor | 2 +- extra/io/windows/windows.factor | 8 ++++---- 4 files changed, 11 insertions(+), 6 deletions(-) diff --git a/extra/io/files/unique/unique.factor b/extra/io/files/unique/unique.factor index b39a14c7f5..1e77cd6814 100644 --- a/extra/io/files/unique/unique.factor +++ b/extra/io/files/unique/unique.factor @@ -46,3 +46,8 @@ PRIVATE> : with-temporary-directory ( quot -- ) with-unique-directory delete-tree ; inline + +{ + { [ unix? ] [ "io.unix.files.unique" ] } + { [ windows? ] [ "io.windows.files.unique" ] } +} cond require diff --git a/extra/io/unix/unix.factor b/extra/io/unix/unix.factor index b7111c5eac..64e2cc3c3d 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.unix.files.unique +io.unix.launcher io.unix.mmap io.backend 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 5f11bf6142..ae06090488 100644 --- a/extra/io/windows/files/unique/unique.factor +++ b/extra/io/windows/files/unique/unique.factor @@ -1,4 +1,4 @@ -USING: kernel system io.files.unqiue io.files.unique.backend ; +USING: kernel system io.files.unique.backend ; IN: io.windows.files.unique M: windows-io (make-unique-file) ( path -- stream ) diff --git a/extra/io/windows/windows.factor b/extra/io/windows/windows.factor index 06dbaf89f7..38b7d4829c 100755 --- a/extra/io/windows/windows.factor +++ b/extra/io/windows/windows.factor @@ -2,10 +2,10 @@ ! See http://factorcode.org/license.txt for BSD license. USING: alien alien.c-types arrays destructors io io.backend io.buffers io.files io.nonblocking io.sockets io.binary -io.sockets.impl io.windows.files.unique windows.errors -strings io.streams.duplex kernel math namespaces sequences -windows windows.kernel32 windows.shell32 windows.types -windows.winsock splitting continuations math.bitfields ; +io.sockets.impl windows.errors strings io.streams.duplex +kernel math namespaces sequences windows windows.kernel32 +windows.shell32 windows.types windows.winsock splitting +continuations math.bitfields ; IN: io.windows TUPLE: windows-nt-io ;