error<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: error<< ( value object -- )

Methods

USING: accessors alien.c-types classes.struct
classes.struct.private math openssl.libssl ;

M: SSL error<<
    T{ struct-slot-spec
        { name "error" }
        { offset 320 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors continuations slots.private ;

M: condition error<< 2 set-slot ; inline


USING: accessors slots.private ui.tools.debugger ;

M: debugger error<< 24 set-slot ; inline


USING: accessors slots.private ui.tools.error-list ;

M: error-list-gadget error<< 26 set-slot ; inline


USING: accessors game.loop slots.private ;

M: game-loop-error-state error<< 2 set-slot ; inline


USING: accessors kernel opengl opengl.annotations slots
slots.private ;

M: gl-error-log error<<
    [
        dup
        gl-error-tuple?
        [ \ gl-error-tuple bad-slot-value ]
        unless
    ] dip 3 set-slot ; inline


USING: accessors gml slots.private ;

M: gml-file-error error<< 3 set-slot ; inline


USING: accessors lexer slots.private ;

M: lexer-error error<< 6 set-slot ; inline


USING: accessors concurrency.mailboxes slots.private ;

M: linked-error error<< 2 set-slot ; inline


USING: accessors site-watcher.db slots.private ;

M: reporting-site error<< 8 set-slot ; inline


USING: accessors google.translate slots.private ;

M: response-error error<< 3 set-slot ; inline


USING: accessors msgpack.rpc slots.private ;

M: response error<< 3 set-slot ; inline


USING: accessors site-watcher.db slots.private ;

M: site error<< 7 set-slot ; inline


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

M: source-file-error error<< 2 set-slot ; inline


USING: accessors db.sqlite.errors slots.private ;

M: unparsed-sqlite-error error<< 2 set-slot ; inline


USING: accessors command-line slots.private ;

M: user-init-error error<< 2 set-slot ; inline


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

M: world-error error<< 2 set-slot ; inline


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

M: yaml_emitter_t error<<
    T{ struct-slot-spec
        { name "error" }
        { offset 0 }
        { class object }
        { type yaml_error_type_t }
    } write-struct-slot ; inline


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

M: yaml_parser_t error<<
    T{ struct-slot-spec
        { name "error" }
        { offset 0 }
        { class object }
        { type yaml_error_type_t }
    } write-struct-slot ; inline