: mark-shadowed-slots ( tuple -- 'tuple ) [ class shadowed-slot-offsets flatten +shadowed+ ] [ '[ _ _ rot set-slot ] each ] [ ] tri ;