next-image-path ( -- path )

Vocabulary

webapps.imagebin

Inputs

None

Outputs

path

an object

Definition

USING: accessors io.pathnames kernel math math.parser namespaces
;

IN: webapps.imagebin

: next-image-path ( -- path )
    imagebin get
    [ path>> ] [ [ 1 + ] change-n n>> number>string ] bi
    append-path ;