selector>effect ( selector -- effect )

Vocabulary

smalltalk.selectors

Inputs

selector

an object

Outputs

effect

an object

Definition

USING: arrays combinators effects kernel sequences ;

IN: smalltalk.selectors

: selector>effect ( selector -- effect )
    dup selector-type {
        { unary [ drop { } ] }
        { binary [ drop { "x" } ] }
        { keyword [ [ 58 = ] count "x" <array> ] }
    } case "receiver" suffix { "result" } <effect> ;