Handbook
Glossary
left<< ( value object -- )
Vocabulary
accessors
Inputs
value
an
object
object
an
object
Outputs
None
Definition
IN:
accessors
GENERIC:
left<<
( value object -- )
Methods
USING:
accessors
alien.c-types
classes.struct
classes.struct.private
math
raylib
;
M:
NPatchInfo
left<<
T{
struct-slot-spec
{
name
"left"
}
{
offset 16
}
{
class
fixnum
}
{
initial 0
}
{
type
int
}
}
write-struct-slot
;
inline
USING:
accessors
infix.ast
slots.private
;
M:
ast-op
left<<
2
set-slot
;
inline
USING:
accessors
persistent.heaps.private
slots.private
;
M:
branch
left<<
4
set-slot
;
inline
USING:
accessors
compression.huffman.private
kernel
slots
slots.private
;
M:
huffman-tree
left<<
[
dup
[
huffman-tree?
]
[
t
]
if*
[
maybe{
huffman-tree
}
bad-slot-value
]
unless
]
dip
3
set-slot
;
inline
USING:
accessors
images.gif
slots.private
;
M:
image-descriptor
left<<
2
set-slot
;
inline
USING:
accessors
pdf.canvas
slots.private
;
M:
margin
left<<
2
set-slot
;
inline
USING:
accessors
slots.private
stack-checker.recursive-state.tree
;
M:
node
left<<
5
set-slot
;
inline
USING:
accessors
slots.private
trees.private
;
M:
node
left<<
4
set-slot
;
inline
USING:
accessors
jamshred.oint
slots.private
;
M:
oint
left<<
5
set-slot
;
inline
USING:
accessors
slots.private
ui.pens.tile
;
M:
tile-pen
left<<
2
set-slot
;
inline
USING:
accessors
benchmark.binary-trees
slots.private
;
M:
tree-node
left<<
3
set-slot
;
inline