with-autorelease-pool ( quot -- )
Cocoa bridge » Cocoa application utilities

Prev:	cocoa-app ( quot -- )
Next:	with-cocoa ( quot -- )

Vocabulary
cocoa.application

Inputs

quot	a quotation

Outputs
None

Word description
Sets up a new NSAutoreleasePool, calls the quotation and frees the pool.

Definition

USING: alien.c-types cocoa.classes cocoa.messages cocoa.runtime
kernel ;

IN: cocoa.application

: with-autorelease-pool ( quot -- )
    NSAutoreleasePool { id { id SEL } } "new" send
    [ call ] [ { void { id SEL } } "release" send ] bi* ; inline