factor: trim using lists

[factor.git] / basis / io / mmap / windows / windows.factor

diff --git a/basis/io/mmap/windows/windows.factor b/basis/io/mmap/windows/windows.factor
index b1191082b36d78f22b5f69e25ae0f08ef91c9bf2..1b57d13dd2eac4b78c98757cb11fbf92fc62c162 100644 (file)
--- a/basis/io/mmap/windows/windows.factor
+++ b/basis/io/mmap/windows/windows.factor
@@ -1,8 +1,7 @@
-USING: alien alien.c-types arrays destructors generic io.mmap
-io.ports io.backend.windows io.files.windows io.backend.windows.privileges
-io.mmap.private kernel libc math math.bitwise namespaces quotations sequences
-windows windows.advapi32 windows.kernel32 io.backend system
-accessors locals windows.errors literals ;
+USING: accessors destructors windows.privileges
+io.files.windows io.mmap io.mmap.private kernel literals
+math math.bitwise system windows.errors windows.handles
+windows.kernel32 ;
 IN: io.mmap.windows
 
 : create-file-mapping ( hFile lpAttributes flProtect dwMaximumSizeHigh dwMaximumSizeLow lpName -- HANDLE )
@@ -45,7 +44,7 @@ M: windows (mapped-file-reader)
         -rot <win32-mapped-file>
     ] with-destructors ;
 
-M: windows close-mapped-file ( mapped-file -- )
+M: windows close-mapped-file
     [
         [ handle>> &dispose drop ]
         [ address>> UnmapViewOfFile win32-error=0/f ] bi