redefine-objc-methods ( methods name -- )

Vocabulary

cocoa.subclassing

Inputs

methods	an object
name	an object

Outputs

None

Definition

USING: cocoa.messages cocoa.runtime kernel sequences ;

IN: cocoa.subclassing

: redefine-objc-methods ( methods name -- )
    dup class-exists? [
        objc_getClass [ ] curry
        [ dip (redefine-objc-method) ] curry each
    ] [ 2drop ] if ;