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
|
] output>array harvest members ; inline
|
||||||
|
|
||||||
: find-in-program-files ( base-directory quot -- path )
|
: find-in-program-files ( base-directory quot -- path )
|
||||||
t swap [
|
[ program-files-directories ]
|
||||||
[ program-files-directories ] dip '[ _ append-path ] map
|
[ '[ _ append-path ] map ]
|
||||||
] 2dip find-file-in-directories ; inline
|
[ find-file-in-directories ] tri* ; inline
|
||||||
|
|
||||||
M: windows find-in-applications
|
M: windows find-in-applications
|
||||||
>lower
|
>lower
|
||||||
|
|
Loading…
Reference in New Issue