USING: accessors classes classes.tuple kernel sequences slots
words ;

IN: classes.tuple.private

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