tag<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: tag<< ( value object -- )

Methods

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

M: ##set-slot-imm tag<< 5 set-slot ; inline


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

M: ##set-slot tag<< 6 set-slot ; inline


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

M: ##slot-imm tag<< 5 set-slot ; inline


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

M: ##slot tag<< 6 set-slot ; inline


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

M: ##write-barrier-imm tag<< 4 set-slot ; inline


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

M: ##write-barrier tag<< 5 set-slot ; inline


USING: accessors cbor slots.private ;

M: cbor-tagged tag<< 2 set-slot ; inline


USING: accessors html5 slots.private ;

M: document tag<< 18 set-slot ; inline


USING: accessors asn1 slots.private ;

M: element tag<< 4 set-slot ; inline


USING: accessors slots.private yaml.private ;

M: factor_mapping_start_event_data tag<< 3 set-slot ; inline


USING: accessors slots.private yaml.private ;

M: factor_sequence_start_event_data tag<< 3 set-slot ; inline


USING: accessors id3.private slots.private ;

M: frame tag<< 2 set-slot ; inline


USING: accessors images.tiff slots.private ;

M: ifd-entry tag<< 2 set-slot ; inline


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

M: mapping_start_event_data tag<<
    T{ struct-slot-spec
        { name "tag" }
        { offset 8 }
        { class object }
        { type c-string }
    } write-struct-slot ; inline


USING: accessors concurrency.messaging slots.private ;

M: reply tag<< 3 set-slot ; inline


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

M: scalar_event_data tag<<
    T{ struct-slot-spec
        { name "tag" }
        { offset 8 }
        { class object }
        { type c-string }
    } write-struct-slot ; inline


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

M: sequence_start_event_data tag<<
    T{ struct-slot-spec
        { name "tag" }
        { offset 8 }
        { class object }
        { type c-string }
    } write-struct-slot ; inline


USING: accessors concurrency.messaging slots.private ;

M: synchronous tag<< 4 set-slot ; inline


USING: accessors regexp.ast slots.private ;

M: tagged-epsilon tag<< 2 set-slot ; inline


USING: accessors classes.struct classes.struct.private yaml.ffi
;

M: token_data tag<<
    T{ struct-slot-spec
        { name "tag" }
        { offset 0 }
        { class tag_token_data }
        { initial
            S{ tag_token_data { handle f } { suffix f } }
        }
        { type tag_token_data }
    } write-struct-slot ; inline


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

M: yaml_node_t tag<<
    T{ struct-slot-spec
        { name "tag" }
        { offset 8 }
        { class object }
        { type c-string }
    } write-struct-slot ; inline