blocks<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: blocks<< ( value object -- )

Methods

USING: accessors grouping kernel slots slots.private
tools.memory ;

M: code-blocks blocks<<
    [ dup groups? [ \ groups bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors compiler.cfg.loop-detection slots.private ;

M: natural-loop blocks<< 5 set-slot ; inline


USING: accessors io.files.info.unix slots.private ;

M: unix-file-info blocks<< 15 set-slot ; inline


USING: accessors io.files.info.unix slots.private ;

M: unix-file-system-info blocks<< 11 set-slot ; inline