run-copy ( -- )

Vocabulary

tools.copy

Inputs

None

Outputs

None

Definition

USING: combinators command-line kernel math namespaces sequences
;

IN: tools.copy

: run-copy ( -- )
    command-line get dup length {
        { [ dup 2 > ] [ drop copy-to-dir ] }
        { [ dup 2 = ] [ drop copy-to-file ] }
        [ 2drop usage ]
    } cond ;