add-protocols ( protocols class -- )

Vocabulary

cocoa.subclassing

Inputs

protocols	an object
class	an object

Outputs

None

Definition

USING: cocoa.messages kernel sequences ;

IN: cocoa.subclassing

: add-protocols ( protocols class -- )
    [ ] curry [ dip objc-protocol add-protocol ] curry each ;