i<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: i<< ( value object -- )

Methods

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

M: ast-for i<< 2 set-slot ; inline


USING: accessors io.streams.byte-array kernel math math.private
slots.private ;

M: byte-reader i<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors kernel math random.cmwc slots slots.private ;

M: cmwc i<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    6 set-slot ; inline


USING: accessors slots.private unicode.normalize.private ;

M: compose-state i<< 2 set-slot ; inline


USING: accessors chipmunk.ffi classes.struct
classes.struct.private math ;

M: cpBody i<<
    T{ struct-slot-spec
        { name "i" }
        { offset 32 }
        { class float }
        { initial 0.0 }
        { type cpFloat }
    } write-struct-slot ; inline


USING: accessors kernel math random.mersenne-twister.private
slots.private ;

M: mersenne-twister i<<
    [ integer>fixnum-strict ] dip 3 set-slot ; inline


USING: accessors math.matrices.laplace.private slots.private ;

M: missing i<< 3 set-slot ; inline


USING: accessors random.dummy slots.private ;

M: random-dummy i<< 2 set-slot ; inline


USING: accessors logic.private slots.private ;

M: resolver-gen i<< 16 set-slot ; inline


USING: accessors io.streams.string kernel math math.private
slots.private ;

M: string-reader i<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors lcs.private slots.private ;

M: trace-state i<< 5 set-slot ; inline