tuple-predicate-quot ( class echelon -- quot )

Vocabulary

classes.tuple.private

Inputs

class	an object
echelon	an object

Outputs

quot

an object

Definition

USING: kernel ;

IN: classes.tuple.private

: tuple-predicate-quot ( class echelon -- quot )
    layout-class-offset [ tuple-instance? ] 2curry ;