body>> ( object -- value )

Vocabulary

accessors

Inputs

object

an object

Outputs

value

an object

Definition

IN: accessors

GENERIC: body>> ( object -- value )

Methods

USING: accessors compiler.tree slots.private ;

M: #call body>> 5 slot ; inline


USING: accessors arrays kernel.private slots.private
smalltalk.ast ;

M: ast-block body>> 4 slot { array } declare ; inline


USING: accessors peg.javascript.private slots.private ;

M: ast-func body>> 3 slot ; inline


USING: accessors kernel.private slots.private smalltalk.ast ;

M: ast-method body>> 3 slot { ast-block } declare ; inline


USING: accessors peg.javascript.private slots.private ;

M: ast-regexp body>> 2 slot ; inline


USING: accessors arrays kernel.private slots.private
smalltalk.ast ;

M: ast-sequence body>> 3 slot { array } declare ; inline


USING: accessors peg.javascript.private slots.private ;

M: ast-with body>> 3 slot ; inline


USING: accessors alien alien.syntax chipmunk.ffi classes.struct
classes.struct.private ;

M: cpShape body>>
    T{ struct-slot-spec
        { name "body" }
        { offset 8 }
        { class c-ptr }
        { type pointer: cpBody }
    } read-struct-slot ; inline


USING: accessors kernel.private slots.private smtp strings ;

M: email body>> 9 slot { string } declare ; inline


USING: accessors slots.private stomp ;

M: frame body>> 4 slot ; inline


USING: accessors locals.types slots.private ;

M: lambda body>> 3 slot ; inline


USING: accessors locals.types slots.private ;

M: let body>> 2 slot ; inline


USING: accessors alien alien.c-types alien.syntax classes.struct
classes.struct.private ogg ;

M: ogg-page body>>
    T{ struct-slot-spec
        { name "body" }
        { offset 16 }
        { class c-ptr }
        { type pointer: uchar }
    } read-struct-slot ; inline


USING: accessors cuda.ptx slots.private ;

M: ptx-entry body>> 5 slot ; inline


USING: accessors cuda.ptx slots.private ;

M: ptx body>> 4 slot ; inline


USING: accessors http slots.private ;

M: raw-response body>> 5 slot ; inline


USING: accessors logic.private slots.private ;

M: resolver-gen body>> 3 slot ; inline


USING: accessors http slots.private ;

M: response body>> 10 slot ; inline


USING: accessors alien.c-types audio.wav classes.struct
classes.struct.private kernel ;

M: wav-data-chunk body>>
    T{ struct-slot-spec
        { name "body" }
        { offset 8 }
        { class object }
        { type { uchar 0 } }
    } read-struct-slot ; inline


USING: accessors kernel.private slots.private xml.data ;

M: xml body>> 4 slot { tag } declare ; inline