class-and ( first second -- class ) (original) (raw)

class-and ( first second -- class )
Factor handbook » The language » Objects » Classes » Class operations

Prev: class<= ( first second -- ? )
Next: class-or ( first second -- class )

Vocabulary
classes.algebra

Inputs

first a class
second a class

Outputs

class a class

Word description
Outputs the largest anonymous class contained in both class1 and class2.

Definition

USING: classes.algebra.private classes.private namespaces ;

IN: classes.algebra

: class-and ( first second -- class )
class-and-cache get [ (class-and) ] symmetric-class-op ;