error-in-thread. ( thread -- )

Vocabulary

debugger.threads

Inputs

thread

an object

Outputs

None

Definition

USING: accessors io io.styles kernel make math.parser
prettyprint ;

IN: debugger.threads

: error-in-thread. ( thread -- )
    "Error in thread " write [
        dup id>> # " (" % dup name>> % ", " %
        dup quot>> unparse-short % ")" %
    ] "" make swap write-object ":" print ;