io.standard-paths.windows: fix find-in-program-files.
Remove stale bfs? flag.char-rename
parent
2ede9f09be
commit
d60970c0a5
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue