check-slots ( seq class -- seq class )

Vocabulary

classes.tuple.private

Inputs

seq	an object
class	an object

Outputs

seq	an object
class	an object

Definition

USING: classes.tuple kernel sequences slots words ;

IN: classes.tuple.private

: check-slots ( seq class -- seq class )
    [ ] [ 2dup all-slots [ check-slot-value ] 2each ]
    if-bootstrapping ; inline