error-alert ( error -- )

Vocabulary

ui.debugger

Inputs

error

an object

Outputs

None

Definition

USING: continuations debugger io io.streams.string kernel
namespaces ui ;

IN: ui.debugger

: error-alert ( error -- )
    [ dup error. flush ] with-global in-callback?
    [ drop ] [
        [ "Error" ] dip
        [ print-error ] with-string-writer system-alert
    ] if ;