io.directories.search.windows: merging with io.standard-paths.windows.

basis/io/directories/search/search.factor

@@ -156,5 +156,3 @@ ERROR: sequence-expected obj ;
 
 : file-info-recursive ( path -- seq )
     [ dup ?file-info [ 2array ] [ drop f ] if* ] filter-files-by-depth ;
-
-os windows? [ "io.directories.search.windows" require ] when

basis/io/directories/search/windows/authors.txt

@@ -1 +0,0 @@
-Doug Coleman

basis/io/directories/search/windows/platforms.txt

@@ -1 +0,0 @@
-windows

basis/io/directories/search/windows/windows.factor

@@ -1,18 +0,0 @@
-! Copyright (C) 2008 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: arrays combinators.smart environment fry
-io.directories.search io.pathnames kernel sequences
-sets windows.shell32 ;
-IN: io.directories.search.windows
-
-: program-files-directories ( -- array )
-    [
-        program-files
-        program-files-x86
-        "ProgramW6432" os-env
-    ] output>array harvest members ; inline
-
-: find-in-program-files ( base-directory quot -- path )
-    t swap [
-        [ program-files-directories ] dip '[ _ append-path ] map
-    ] 2dip find-in-directories ; inline

basis/io/standard-paths/windows/windows.factor

@@ -1,10 +1,22 @@
 ! Copyright (C) 2011 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: environment fry io.directories.search.windows io.files
-io.pathnames io.standard-paths kernel sequences splitting
-system unicode ;
+USING: arrays combinators.smart environment fry
+io.directories.search io.files io.pathnames io.standard-paths
+kernel sequences sets splitting system unicode windows.shell32 ;
 IN: io.standard-paths.windows
 
+: program-files-directories ( -- array )
+    [
+        program-files
+        program-files-x86
+        "ProgramW6432" os-env
+    ] output>array harvest members ; inline
+
+: find-in-program-files ( base-directory quot -- path )
+    t swap [
+        [ program-files-directories ] dip '[ _ append-path ] map
+    ] 2dip find-in-directories ; inline
+
 M: windows find-in-applications
     >lower
     '[ [ >lower _ tail? ] find-in-program-files ] map-find drop ;

extra/graphviz/render/windows/windows.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors combinators.short-circuit graphviz.render
 graphviz.render.private io.directories
-io.directories.search.windows io.files.info io.standard-paths
+io.files.info io.standard-paths io.standard-paths.windows
 kernel sequences system ;
 IN: graphviz.render.windows