Paste: mark-shadowed-slots

Author: kenanb
Mode: factor
Date: Fri, 22 Apr 2011 16:56:17
Plain Text |
: 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 ;

New Annotation

Summary:
Author:
Mode:
Body: