selector-type ( selector -- type )

Vocabulary

smalltalk.selectors

Inputs

selector

an object

Outputs

type

an object

Definition

USING: combinators kernel sequences ;

IN: smalltalk.selectors

: selector-type ( selector -- type )
    {
        {
            [ dup [ "~!@%&*-+=|\\<>,?/" member? ] all? ]
            [ binary ]
        }
        { [ 58 over member? ] [ keyword ] }
        [ unary ]
    } cond nip ;