cleanup-unique-files ( ..a prefix suffixes quot: ( ..a paths -- ..b ) -- ..b )


Vocabulary
io.files.unique

Inputs
prefixan object
suffixesan object
quota quotation with stack effect ( ..a paths -- ..b )


Outputs
None

Definition
USING: continuations io.directories kernel sequences ;

IN: io.files.unique

:: cleanup-unique-files
( ..a prefix suffixes quot: ( ..a paths -- ..b ) -- ..b )
prefix suffixes unique-files :> paths
[ paths quot call ] [ paths [ ?delete-file ] each ] finally
; inline