move-to-dir ( args -- )

Vocabulary

tools.move

Inputs

args

an object

Outputs

None

Definition

USING: io.directories io.files.info kernel sequences ;

IN: tools.move

: move-to-dir ( args -- )
    dup last file-info directory?
    [ unclip-last move-files-into ] [ drop usage ] if ;