delete-when-file-size-mismatches? ( path size -- deleted? )

Vocabulary

http.download

Inputs

path	an object
size	an object

Outputs

deleted?

an object

Definition

USING: io.directories kernel ;

IN: http.download

: delete-when-file-size-mismatches?
    ( path size -- deleted? )
    dupd file-size= [ drop f ] [ ?delete-file t ] if ;