fatal-error-body ( error callstack -- string )

Vocabulary

mason

Inputs

error	an object
callstack	an object

Outputs

string

an object

Definition

USING: debugger io io.sockets io.streams.string kernel
prettyprint ;

IN: mason

: fatal-error-body ( error callstack -- string )
    [
        "Fatal error on " write host-name print nl
        [ error. ] [ callstack. ] bi*
    ] with-string-writer ;