tuple-predicate-quot/1 ( class -- quot )

Vocabulary

classes.tuple.private

Inputs

class

an object

Outputs

quot

an object

Definition

USING: kernel quotations sequences slots.private ;

IN: classes.tuple.private

: tuple-predicate-quot/1 ( class -- quot )
    [ ] curry [ layout-of 7 slot ] [ eq? ] surround 1quotation
    [ dup tuple? ] [ [ drop f ] if ] surround ;