move-to-file ( args -- )

Vocabulary

tools.move

Inputs

args

an object

Outputs

None

Definition

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

IN: tools.move

: move-to-file ( args -- )
    dup last file-info directory?
    [ move-to-dir ] [ first2 move-file ] if ;