IN: accessors

GENERIC: reason>> ( object -- value )

USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xinput2.ffi ;

M: XIDeviceChangedEvent reason>>
T{ struct-slot-spec
{ name "reason" }
{ offset 56 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

USING: accessors slots.private units.reduction ;

M: bad-storage-string reason>> 3 slot ; inline

USING: accessors io.sockets.private slots.private ;

M: invalid-ipv4 reason>> 3 slot ; inline

USING: accessors io.sockets.private slots.private ;

M: invalid-ipv6 reason>> 3 slot ; inline

USING: accessors sequences slots.private ;

M: slice-error reason>> 5 slot ; inline