Handbook
Glossary
tetromino<< ( value object -- )
Vocabulary
accessors
Inputs
value
an
object
object
an
object
Outputs
None
Definition
IN:
accessors
GENERIC:
tetromino<<
( value object -- )
Methods
USING:
accessors
kernel
slots
slots.private
tetris.piece
tetris.tetromino
;
M:
piece
tetromino<<
[
dup
tetromino?
[
\
tetromino
bad-slot-value
]
unless
]
dip
2
set-slot
;
inline