method-collisions ( -- collisions )

Vocabulary

cocoa.messages

Inputs

None

Outputs

collisions

an object

Definition

USING: assocs kernel math namespaces sequences sets splitting ;

IN: cocoa.messages

: method-collisions ( -- collisions )
    objc-methods get >alist [ first 46 swap member? ] filter
    [ first "." split1 nip ] collect-by
    [ values members length 1 > ] filter-values ;