(match-branch) ( class quot -- class quot' )

Vocabulary

variants

Inputs

class	an object
quot	an object

Outputs

class	an object
quot'	an object

Definition

IN: variants

GENERIC#: (match-branch) 1 ( class quot -- class quot' )

Methods

USING: kernel sequences variants ;

M: object (match-branch) over \ unboa [ ] 2sequence prepend ;


USING: classes.singleton kernel sequences variants ;

M: singleton-class (match-branch) \ drop prefix ;