copy-vocab-resource ( to from file -- )

Vocabulary

vocabs.metadata.resources.private

Inputs

to	an object
from	an object
file	an object

Outputs

None

Definition

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

IN: vocabs.metadata.resources.private

: copy-vocab-resource ( to from file -- )
    [ append-path ] curry bi@ dup file-info directory?
    [ drop make-directories ]
    [ swap make-parent-directories copy-file ] if ;