find-next-incremented-name ( path -- path' )

Vocabulary

http.download.private

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.files kernel ;

IN: http.download.private

: find-next-incremented-name ( path -- path' )
    dup file-exists?
    [ increment-file-name find-next-incremented-name ] when ;