io.standard-paths.windows: fix find-in-program-files.

Remove stale bfs? flag.
2017-03-05 19:17:14 -08:00 · 2017-03-05 19:17:14 -08:00 · d60970c0a5
parent 2ede9f09be
commit d60970c0a5
1 changed files with 3 additions and 3 deletions
--- a/basis/io/standard-paths/windows/windows.factor
+++ b/basis/io/standard-paths/windows/windows.factor
@ -13,9 +13,9 @@ IN: io.standard-paths.windows
    ] output>array harvest members ; inline

 : find-in-program-files ( base-directory quot -- path )
-    t swap [
-        [ program-files-directories ] dip '[ _ append-path ] map
-    ] 2dip find-file-in-directories ; inline
+    [ program-files-directories ]
+    [ '[ _ append-path ] map ]
+    [ find-file-in-directories ] tri* ; inline

 M: windows find-in-applications
    >lower