selector-name ( name -- name' )

Vocabulary

cocoa.messages

Inputs

name

an object

Outputs

name'

an object

Definition

USING: kernel math sequences splitting ;

IN: cocoa.messages

: selector-name ( name -- name' )
    46 over index [ 0 > [ "." split1 nip ] when ] when* ;