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


Vocabulary
http.download

Inputs
pathan object
sizean 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 ;