with-enumeration-buffers ( quot -- )

Vocabulary

cocoa.enumeration

Inputs

quot

an object

Outputs

None

Definition

USING: alien.data classes.struct cocoa.runtime cocoa.types
destructors kernel libc ;

IN: cocoa.enumeration

: with-enumeration-buffers ( quot -- )
    [
        [
            NSFastEnumerationState malloc-struct &free
            NS-EACH-BUFFER-SIZE id malloc-array
            &free NS-EACH-BUFFER-SIZE
        ]
    ] dip compose with-destructors ; inline