From d60970c0a5de8cb16eba55fe71441e9de35d6299 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 5 Mar 2017 19:17:14 -0800
Subject: [PATCH] io.standard-paths.windows: fix find-in-program-files.

Remove stale bfs? flag.
---
 basis/io/standard-paths/windows/windows.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/io/standard-paths/windows/windows.factor b/basis/io/standard-paths/windows/windows.factor
index f3b1edab92..f399ec5add 100644
--- 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