-: delete-when-zero-size ( path -- deleted? )
- dup file-zero-size? [ ?delete-file t ] [ drop f ] if ;
+: 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 ;