option-description ( option -- description )

Vocabulary

command-line.parser.private

Inputs

option

an object

Outputs

description

an object

Definition

USING: accessors formatting kernel sequences ;

IN: command-line.parser.private

: option-description ( option -- description )
    [ help>> ]
    [ default>> dup [ "(default: %s)" sprintf ] when ] bi
    2dup and [ " " glue ] [ or "" or ] if ;