boa-check-quot ( class -- quot )

Vocabulary

classes.tuple.private

Inputs

class

an object

Outputs

quot

an object

Definition

USING: accessors classes.tuple combinators sequences slots ;

IN: classes.tuple.private

: boa-check-quot ( class -- quot )
    all-slots [ class>> instance-check-quot ] map
    shallow-spread>quot f like ;