! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel cocoa.nibs cocoa.application cocoa ;
IN: cocoa.standalone

: cocoa-app ( quot -- )
    [
        "MiniFactor.nib" load-nib
        call
        finish-launching
        NSApp -> run
    ] with-cocoa ; inline