with-temp-directory-at ( path quot -- )

Vocabulary

wipe

Inputs

path	a filename string
quot	a quotation

Outputs

None

Word description

Run the quotaction in a randomly named subdirectory of path, then delete the subdirectory.

Definition

USING: io.directories io.files.unique kernel ;

IN: wipe

: with-temp-directory-at ( path quot -- )
    [ cleanup-unique-directory ] curry with-directory ; inline