factor: more top level forms.

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

diff --git a/basis/io/mmap/mmap.factor b/basis/io/mmap/mmap.factor
index 1d6a3344e2aec2da83cee0be521732e48a7f1634..58dbcf055d8d106fb2cc59ba6145bc37065700b5 100644 (file)
--- a/basis/io/mmap/mmap.factor
+++ b/basis/io/mmap/mmap.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2007, 2009 Doug Coleman, Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien.c-types alien.data combinators
-destructors io.backend io.files.info kernel math system vocabs ;
+destructors io.backend io.files.info kernel math system vocabs
+vocabs.platforms ;
 IN: io.mmap
 
 TUPLE: mapped-file < disposable address handle length ;
@@ -56,7 +57,5 @@ PRIVATE>
 : with-mapped-array-reader ( path c-type quot -- )
     [ <mapped-file-reader> ] 2dip (with-mapped-array) ; inline
 
-{
-    { [ os unix? ] [ "io.mmap.unix" require ] }
-    { [ os windows? ] [ "io.mmap.windows" require ] }
-} cond
+USE-UNIX: io.mmap.unix
+USE-WINDOWS: io.mmap.windows