acl-each ( path quot -- )

Vocabulary

io.files.acls.macos

Inputs

path	an object
quot	an object

Outputs

None

Definition

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

IN: io.files.acls.macos

:: acl-each ( path quot -- )
    [
        path file-acl &free-acl :> acl acl [
            acl first-acl-entry drop acl quot call
            [ acl next-acl-entry ] [ acl quot call ] while
        ] when
    ] with-destructors ; inline