find-path-entry ( names directories test -- path/f )

Vocabulary

io.standard-paths.private

Inputs

names	an object
directories	an object
test	an object

Outputs

path/f

an object

Definition

USING: io.pathnames kernel sequences ;

IN: io.standard-paths.private

:: find-path-entry ( names directories test -- path/f )
    directories [| directory |
        names [
            directory swap append-path dup test call
            [ drop f ] unless
        ] map-find drop
    ] map-find drop ; inline