From 06e3fc84a693c7f888d8841c22f92b736488ff11 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 16 Sep 2010 16:10:38 -0500 Subject: [PATCH] Trim using lists for io.files.windows --- basis/io/files/windows/nt/nt.factor | 16 ++++++++-------- basis/io/files/windows/windows.factor | 13 +++++-------- 2 files changed, 13 insertions(+), 16 deletions(-) diff --git a/basis/io/files/windows/nt/nt.factor b/basis/io/files/windows/nt/nt.factor index 10c5710f7d..a2d6d90f6b 100644 --- a/basis/io/files/windows/nt/nt.factor +++ b/basis/io/files/windows/nt/nt.factor @@ -1,11 +1,11 @@ -USING: continuations destructors io.buffers io.files io.backend -io.timeouts io.ports io.pathnames io.files.private -io.backend.windows io.files.windows io.encodings.utf16n windows -windows.kernel32 kernel libc math threads system environment -alien.c-types alien.arrays alien.strings sequences combinators -combinators.short-circuit ascii splitting alien strings assocs -namespaces make accessors tr windows.time windows.shell32 -windows.errors specialized-arrays classes.struct ; +USING: accessors alien.c-types alien.strings classes.struct +combinators combinators.short-circuit continuations environment +io.backend io.backend.windows io.encodings.utf16n +io.files.private io.files.windows io.pathnames kernel math +sequences specialized-arrays +specialized-arrays.instances.alien.c-types.ushort system tr +windows windows.errors windows.kernel32 windows.shell32 +windows.time ; SPECIALIZED-ARRAY: ushort IN: io.files.windows.nt diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor index 4fc2057a74..b0fa0472ca 100644 --- a/basis/io/files/windows/windows.factor +++ b/basis/io/files/windows/windows.factor @@ -1,13 +1,10 @@ ! Copyright (C) 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: alien.c-types io.binary io.backend io.files -io.files.types io.buffers io.encodings.utf16n io.ports -io.backend.windows kernel math splitting fry alien.strings -windows windows.kernel32 windows.time windows.types calendar -combinators math.functions sequences namespaces make words -system destructors accessors math.bitwise continuations -windows.errors arrays byte-arrays generalizations alien.data -literals ; +USING: accessors alien.c-types alien.data combinators +destructors io.backend.windows io.binary io.buffers io.files +io.files.types io.ports kernel literals make math.bitwise +system windows.errors windows.handles windows.kernel32 +windows.time windows.types ; IN: io.files.windows : open-file ( path access-mode create-mode flags -- handle )