quot<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: quot<< ( value object -- )

Methods

USING: accessors compiler.cfg.instructions slots.private ;

M: ##alien-assembly quot<< 9 set-slot ; inline


USING: accessors models.combinators slots.private ;

M: (when-model) quot<< 8 set-slot ; inline


USING: accessors slots.private ui.gadgets.editors ;

M: action-field quot<< 27 set-slot ; inline


USING: accessors peg.private slots.private ;

M: action-parser quot<< 3 set-slot ; inline


USING: accessors models.combinators slots.private ;

M: action quot<< 8 set-slot ; inline


USING: accessors kernel quotations slots slots.private
stack-checker.alien ;

M: alien-assembly-params quot<<
    [ dup callable? [ \ callable bad-slot-value ] unless ] dip
    6 set-slot ; inline


USING: accessors parser-combinators slots.private ;

M: apply-parser quot<< 3 set-slot ; inline


USING: accessors models.arrow slots.private ;

M: arrow quot<< 7 set-slot ; inline


USING: accessors peg.private slots.private ;

M: box-parser quot<< 2 set-slot ; inline


USING: accessors slots.private ui.gadgets.buttons ;

M: button quot<< 26 set-slot ; inline


USING: accessors html.templates.chloe slots.private ;

M: cached-template-state quot<< 4 set-slot ; inline


USING: accessors command-loop slots.private ;

M: command quot<< 3 set-slot ; inline


USING: accessors mongodb.tuple.persistent.private slots.private
;

M: cond-value quot<< 3 set-slot ; inline


USING: accessors delegate.private slots.private ;

M: consultation quot<< 4 set-slot ; inline


USING: accessors slots.private stack-checker.values ;

M: curried-effect quot<< 3 set-slot ; inline


USING: accessors peg.private slots.private ;

M: delay-parser quot<< 2 set-slot ; inline


USING: accessors slots.private source-files.errors ;

M: error-type-holder quot<< 6 set-slot ; inline


USING: accessors escape-strings.ui slots.private ;

M: escape-string-editor quot<< 41 set-slot ; inline


USING: accessors models.combinators slots.private ;

M: filter-model quot<< 8 set-slot ; inline


USING: accessors models.combinators slots.private ;

M: fold-model quot<< 8 set-slot ; inline


USING: accessors lists.lazy slots.private ;

M: lazy-filter quot<< 3 set-slot ; inline


USING: accessors lists.lazy slots.private ;

M: lazy-from-by quot<< 3 set-slot ; inline


USING: accessors lists.lazy slots.private ;

M: lazy-io quot<< 5 set-slot ; inline


USING: accessors lists.lazy slots.private ;

M: lazy-map quot<< 3 set-slot ; inline


USING: accessors lists.lazy slots.private ;

M: lazy-until quot<< 3 set-slot ; inline


USING: accessors lists.lazy slots.private ;

M: lazy-while quot<< 3 set-slot ; inline


USING: accessors lazy slots.private ;

M: lazy quot<< 2 set-slot ; inline


USING: accessors models.combinators slots.private ;

M: mapped-model quot<< 9 set-slot ; inline


USING: accessors slots.private ui.gadgets.panes ;

M: pane-control quot<< 34 set-slot ; inline


USING: accessors cocoa.statusbar kernel quotations slots
slots.private ;

M: platform-menu-item quot<<
    [ dup callable? [ \ callable bad-slot-value ] unless ] dip
    3 set-slot ; inline


USING: accessors boids slots.private ;

M: range-observer quot<< 2 set-slot ; inline


USING: accessors monads slots.private ;

M: reader quot<< 2 set-slot ; inline


USING: accessors furnace.referrer slots.private ;

M: referrer-check quot<< 3 set-slot ; inline


USING: accessors peg.private slots.private ;

M: satisfy-parser quot<< 2 set-slot ; inline


USING: accessors parser-combinators slots.private ;

M: satisfy-parser quot<< 2 set-slot ; inline


USING: accessors peg.private slots.private ;

M: semantic-parser quot<< 3 set-slot ; inline


USING: accessors monads slots.private ;

M: state quot<< 2 set-slot ; inline


USING: accessors slots.private ui.gadgets.controls ;

M: table quot<< 44 set-slot ; inline


USING: accessors kernel quotations slots slots.private threads ;

M: thread quot<<
    [ dup callable? [ \ callable bad-slot-value ] unless ] dip
    3 set-slot ; inline


USING: accessors kernel quotations slots slots.private timers ;

M: timer quot<<
    [ dup callable? [ \ callable bad-slot-value ] unless ] dip
    2 set-slot ; inline