?define-irc-parameters ( class slot-names -- )

Vocabulary

irc.messages.base.private

Inputs

class	an object
slot-names	an object

Outputs

None

Definition

USING: generic.parser irc.messages.base kernel sequences words ;

IN: irc.messages.base.private

: ?define-irc-parameters ( class slot-names -- )
    dup empty? not [
        [ \ irc-parameter-slots create-method-in ] dip
        [ [ "_" = not ] 1guard ] map [ [ drop ] ] dip [ ] curry
        compose define
    ] [ 2drop ] if ;