run-move ( -- )

Vocabulary

tools.move

Inputs

None

Outputs

None

Definition

USING: combinators command-line kernel math namespaces sequences
;

IN: tools.move

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