fig-name ( path -- newpath )

Vocabulary

images.testing.private

Inputs

path

an object

Outputs

newpath

an object

Definition

USING: io.backend io.pathnames kernel sequences ;

IN: images.testing.private

: fig-name ( path -- newpath )
    [ parent-directory normalize-path ]
    [ file-stem ".fig" append ] bi append-path ;