(objc-class) ( name word -- class )

Vocabulary

cocoa.messages

Inputs

name	an object
word	an object

Outputs

class

an object

Definition

USING: assocs combinators kernel namespaces sequences ;

IN: cocoa.messages

: (objc-class) ( name word -- class )
    2dup execute
    [ 2nip ] [
        over class-init-hooks get at
        [ ( -- ) call-effect ] when* 2dup execute
        [ 2nip ] [ drop "No such class: " prepend throw ] if*
    ] if* ; inline