: >>writer-word ( name -- word )
">>" prepend "accessors" lookup-word ;
-
+
: writer-word<< ( name -- word )
">>" prepend "accessors" lookup-word ;
[ writer-word<< 1quotation ] bi append
] map-tokens
'[ swap _ cleave ] append! ;
-
+
SYNTAX: get[ POSTPONE: slots[ ;
SYNTAX: get{ POSTPONE: slots{ ;
SYNTAX: set[ POSTPONE: set-slots[ ;