(which) ( command path -- file/f )

Vocabulary

tools.which.private

Inputs

command	an object
path	an object

Outputs

file/f

an object

Definition

USING: arrays kernel sequences system ;

IN: tools.which.private

: (which) ( command path -- file/f )
    split-path os windows?
    [ [ path-extensions ] [ "." prefix ] bi* ]
    [ [ 1array ] dip ] if find-which ;