IN: accessors

GENERIC: array>> ( object -- value )

USING: accessors byte-arrays gml.viewer kernel.private
slots.private ;

M: b-rep-vertices array>> 2 slot { byte-array } declare ; inline

USING: accessors bunny.model slots.private ;

M: bunny-buffers array>> 2 slot ; inline

USING: accessors arrays hash-sets kernel.private slots.private ;

M: hash-set array>> 4 slot { array } declare ; inline

USING: accessors arrays hashtables kernel.private slots.private
;

M: hashtable array>> 4 slot { array } declare ; inline

USING: accessors arrays interval-maps kernel.private
slots.private ;

M: interval-map array>> 2 slot { array } declare ; inline

USING: accessors interval-sets kernel.private slots.private
specialized-arrays.instances.alien.c-types.uint ;

M: interval-set array>> 2 slot { uint-array } declare ; inline

USING: accessors images.png slots.private ;

M: invalid-PLTE array>> 2 slot ; inline

USING: accessors arrays gml.types kernel.private slots.private ;

M: proc array>> 2 slot { array } declare ; inline

USING: accessors arrays kernel.private quotations slots.private
;

M: quotation array>> 1 slot { array } declare ; inline

USING: accessors classes.struct classes.struct.private math
tools.image-analyzer.vm vm ;

M: quotation array>>
T{ struct-slot-spec
{ name "array" }
{ offset 8 }
{ class integer }
{ initial 0 }
{ type cell_t }
} read-struct-slot ; inline