params<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: params<< ( value object -- )

Methods

USING: accessors compiler.tree slots.private ;

M: #alien-callback params<< 2 set-slot ; inline


USING: accessors compiler.tree slots.private ;

M: #alien-node params<< 2 set-slot ; inline


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

M: AutomationEvent params<<
    T{ struct-slot-spec
        { name "params" }
        { offset 8 }
        { class object }
        { type { int 4 } }
    } write-struct-slot ; inline


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

M: Material params<<
    T{ struct-slot-spec
        { name "params" }
        { offset 24 }
        { class object }
        { type { float 4 } }
    } write-struct-slot ; inline


USING: accessors llvm.examples.kaleidoscope slots.private ;

M: ast-def params<< 3 set-slot ; inline


USING: accessors cuda.ptx slots.private ;

M: call params<< 7 set-slot ; inline


USING: accessors msgpack.rpc slots.private ;

M: notification params<< 3 set-slot ; inline


USING: accessors http slots.private ;

M: post-data params<< 3 set-slot ; inline


USING: accessors cuda.ptx slots.private ;

M: ptx-entry params<< 3 set-slot ; inline


USING: accessors msgpack.rpc slots.private ;

M: request params<< 4 set-slot ; inline


USING: accessors slots.private xml-rpc ;

M: rpc-method params<< 3 set-slot ; inline


USING: accessors slots.private xml-rpc ;

M: rpc-response params<< 2 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: rpl-channel-modes params<< 11 set-slot ; inline


USING: accessors compiler.cfg.stack-frame kernel math slots
slots.private ;

M: stack-frame params<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    2 set-slot ; inline