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

Vocabulary

io.files.unique

Inputs

prefix	an object
suffixes	an object
quot	a 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