From 2628dbc5c9e052883c69b3fd7e6bd1ebc816afd3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 6 Oct 2016 14:57:40 -0700
Subject: [PATCH] io.directories.search.windows: merging with
 io.standard-paths.windows.

---
 basis/io/directories/search/search.factor      |  2 --
 .../io/directories/search/windows/authors.txt  |  1 -
 .../directories/search/windows/platforms.txt   |  1 -
 .../directories/search/windows/windows.factor  | 18 ------------------
 basis/io/standard-paths/windows/windows.factor | 18 +++++++++++++++---
 extra/graphviz/render/windows/windows.factor   |  2 +-
 6 files changed, 16 insertions(+), 26 deletions(-)
 delete mode 100644 basis/io/directories/search/windows/authors.txt
 delete mode 100644 basis/io/directories/search/windows/platforms.txt
 delete mode 100644 basis/io/directories/search/windows/windows.factor

diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 98776a45ae..04f82f7344 100644
--- a/basis/io/directories/search/search.factor
+++ b/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
diff --git a/basis/io/directories/search/windows/authors.txt b/basis/io/directories/search/windows/authors.txt
deleted file mode 100644
index 7c1b2f2279..0000000000
--- a/basis/io/directories/search/windows/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Doug Coleman
diff --git a/basis/io/directories/search/windows/platforms.txt b/basis/io/directories/search/windows/platforms.txt
deleted file mode 100644
index 8e1a55995e..0000000000
--- a/basis/io/directories/search/windows/platforms.txt
+++ /dev/null
@@ -1 +0,0 @@
-windows
diff --git a/basis/io/directories/search/windows/windows.factor b/basis/io/directories/search/windows/windows.factor
deleted file mode 100644
index cbd86aed07..0000000000
--- a/basis/io/directories/search/windows/windows.factor
+++ /dev/null
@@ -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
diff --git a/basis/io/standard-paths/windows/windows.factor b/basis/io/standard-paths/windows/windows.factor
index b0870c22d2..fcd912687d 100644
--- a/basis/io/standard-paths/windows/windows.factor
+++ b/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 ;
diff --git a/extra/graphviz/render/windows/windows.factor b/extra/graphviz/render/windows/windows.factor
index 3933b9f247..d26d8c174a 100644
--- a/extra/graphviz/render/windows/windows.factor
+++ b/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