with-new-acl ( quot -- )

Vocabulary

io.files.acls.macosx

Inputs

quot

an object

Outputs

None

Definition

USING: destructors io.files.acls.macosx.private kernel ;

IN: io.files.acls.macosx

: with-new-acl ( quot -- )
    [ [ new-acl &free-acl ] dip call ] with-destructors ; inline