split-methods ( assoc class -- first second )

Vocabulary

generic.single

Inputs

assoc	an object
class	an object

Outputs

first	an object
second	an object

Definition

USING: assocs classes.algebra kernel ;

IN: generic.single

: split-methods ( assoc class -- first second )
    [ [ nip class<= ] curry assoc-reject ]
    [ [ nip class<= ] curry assoc-filter ] 2bi ;