body<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: body<< ( value object -- )

Methods

USING: accessors compiler.tree slots.private ;

M: #call body<< 5 set-slot ; inline


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

M: ast-block body<<
    [ dup array? [ \ array bad-slot-value ] unless ] dip
    4 set-slot ; inline


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

M: ast-func body<< 3 set-slot ; inline


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

M: ast-method body<<
    [ dup ast-block? [ \ ast-block bad-slot-value ] unless ] dip
    3 set-slot ; inline


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

M: ast-regexp body<< 2 set-slot ; inline


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

M: ast-sequence body<<
    [ dup array? [ \ array bad-slot-value ] unless ] dip
    3 set-slot ; inline


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

M: ast-with body<< 3 set-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 }
    } write-struct-slot ; inline


USING: accessors kernel slots slots.private smtp strings ;

M: email body<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    9 set-slot ; inline


USING: accessors slots.private stomp ;

M: frame body<< 4 set-slot ; inline


USING: accessors locals.types slots.private ;

M: lambda body<< 3 set-slot ; inline


USING: accessors locals.types slots.private ;

M: let body<< 2 set-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 }
    } write-struct-slot ; inline


USING: accessors cuda.ptx slots.private ;

M: ptx-entry body<< 5 set-slot ; inline


USING: accessors cuda.ptx slots.private ;

M: ptx body<< 4 set-slot ; inline


USING: accessors http slots.private ;

M: raw-response body<< 5 set-slot ; inline


USING: accessors logic.private slots.private ;

M: resolver-gen body<< 3 set-slot ; inline


USING: accessors http slots.private ;

M: response body<< 10 set-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 } }
    } write-struct-slot ; inline


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

M: xml body<<
    [ dup tag? [ \ tag bad-slot-value ] unless ] dip 4 set-slot
    ; inline