IN: accessors

GENERIC: op>> ( object -- value )

USING: accessors infix.ast slots.private ;

M: ast-op op>> 4 slot ; inline

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

M: atom op>> 9 slot { ptx-op } declare ; inline

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

M: bar.red op>> 7 slot { ptx-op } declare ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private math vm ;

M: gc-event op>>
T{ struct-slot-spec
{ name "op" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uint }
} read-struct-slot ; inline

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

M: red op>> 8 slot { ptx-op } declare ; inline

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

M: testp op>> 7 slot { ptx-testp-op } declare ; inline