define-objc-class-word ( quot name -- )

Vocabulary

cocoa.messages

Inputs

quot	an object
name	an object

Outputs

None

Definition

USING: assocs kernel namespaces words ;

IN: cocoa.messages

: define-objc-class-word ( quot name -- )
    [ class-init-hooks get set-at ] [
        [ "cocoa.classes" create-word ] [ [ objc-class ] curry ]
        bi ( -- class ) define-declared
    ] bi ;