Paste: mark-shadowed-slots

: mark-shadowed-slots ( tuple -- marked )
    [ [ +shadowed+ ] keep ]
    [ class all-slots ] bi dup
    [ name>> ] map duplicates sets:members
    [ swap
      [ name>> = ] with filter but-last
      [ offset>> set-slot ] 2 nwith each
    ] 3 nwith each ;