label>> ( object -- value )


Vocabulary
accessors

Inputs
objectan object


Outputs
valuean object


Definition
IN: accessors

GENERIC: label>> ( object -- value )


Methods
USING: accessors compiler.tree slots.private ;

M: #call-recursive label>> 2 slot ; inline


USING: accessors compiler.tree slots.private ;

M: #enter-recursive label>> 4 slot ; inline


USING: accessors compiler.tree slots.private ;

M: #recursive label>> 4 slot ; inline


USING: accessors compiler.tree slots.private ;

M: #return-recursive label>> 4 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 }
} read-struct-slot ; inline


USING: accessors images.gif slots.private ;

M: application-extension label>> 3 slot ; inline


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

M: call-graph-node label>> 3 slot ; inline


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

M: call-site label>> 4 slot ; inline


USING: accessors compiler.cfg slots.private ;

M: cfg label>> 4 slot ; inline


USING: accessors html.components slots.private ;

M: checkbox label>> 2 slot ; inline


USING: accessors images.gif slots.private ;

M: comment-extension label>> 3 slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: edge-attributes label>> 28 slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes label>> 30 slot ; inline


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

M: label-fixup-state label>> 2 slot { label } declare ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes label>> 17 slot ; inline


USING: accessors images.gif slots.private ;

M: plain-text-extension label>> 3 slot ; inline


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

M: ptx-instruction label>>
2 slot { maybe{ string } } declare ; inline