path-extensions ( command -- commands )

Vocabulary

tools.which.private

Inputs

command

an object

Outputs

commands

an object

Definition

USING: arrays environment kernel sequences unicode ;

IN: tools.which.private

: path-extensions ( command -- commands )
    "PATHEXT" os-env [
        split-path 2dup [ [ >lower ] bi@ tail? ] with any?
        [ drop 1array ] [ [ append ] with map ] if
    ] [ 1array ] if* ;