copy-vm-file-as ( name new-name -- )

Vocabulary

build-from-source

Inputs

name	an object
new-name	an object

Outputs

None

Definition

USING: io.directories io.pathnames kernel system ;

IN: build-from-source

: copy-vm-file-as ( name new-name -- )
    [ prepend-current-path ]
    [ vm-path parent-directory prepend-path ] bi* copy-file ;