label<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: label<< ( value object -- )


Methods
USING: accessors compiler.tree slots.private ;

M: #call-recursive label<< 2 set-slot ; inline


USING: accessors compiler.tree slots.private ;

M: #enter-recursive label<< 4 set-slot ; inline


USING: accessors compiler.tree slots.private ;

M: #recursive label<< 4 set-slot ; inline


USING: accessors compiler.tree slots.private ;

M: #return-recursive label<< 4 set-slot ; inline


USING: accessors classes.struct classes.struct.private math
x11.X x11.xinput2.ffi ;

M: XIValuatorClassInfo label<<
T{ struct-slot-spec
{ name "label" }
{ offset 16 }
{ class integer }
{ initial 0 }
{ type Atom }
} write-struct-slot ; inline


USING: accessors images.gif slots.private ;

M: application-extension label<< 3 set-slot ; inline


USING: accessors compiler.tree.recursive.private slots.private ;

M: call-graph-node label<< 3 set-slot ; inline


USING: accessors compiler.tree.recursive slots.private ;

M: call-site label<< 4 set-slot ; inline


USING: accessors compiler.cfg slots.private ;

M: cfg label<< 4 set-slot ; inline


USING: accessors html.components slots.private ;

M: checkbox label<< 2 set-slot ; inline


USING: accessors images.gif slots.private ;

M: comment-extension label<< 3 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: edge-attributes label<< 28 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes label<< 30 set-slot ; inline


USING: accessors compiler.codegen.labels kernel slots
slots.private ;

M: label-fixup-state label<<
[ dup label? [ \ label bad-slot-value ] unless ] dip
2 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes label<< 17 set-slot ; inline


USING: accessors images.gif slots.private ;

M: plain-text-extension label<< 3 set-slot ; inline


USING: accessors cuda.ptx kernel slots slots.private strings ;

M: ptx-instruction label<<
[
dup
[ string? ]
[ t ]
if*
[ maybe{ string } bad-slot-value ]
unless
] dip 2 set-slot ; inline