find-which ( commands paths -- file/f )

Vocabulary

tools.which.private

Inputs

commands	an object
paths	an object

Outputs

file/f

an object

Definition

USING: assocs io.backend io.pathnames kernel sequences sets ;

IN: tools.which.private

: find-which ( commands paths -- file/f )
    [ normalize-path ] map members cartesian-product flip concat
    [ prepend-path ] { } assoc>map [ executable? ] find nip ;