delete-when-zero-size ( path -- deleted-or-not-exists? )

Vocabulary

http.download

Inputs

path

an object

Outputs

deleted-or-not-exists?

an object

Definition

USING: io.directories io.files kernel ;

IN: http.download

: delete-when-zero-size ( path -- deleted-or-not-exists? )
    dup file-exists?
    [ dup file-zero-size? [ ?delete-file t ] [ drop f ] if ]
    [ drop t ] if ;