deploy-error-handler ( quot -- )

Vocabulary

tools.deploy.shaker

Inputs

quot

an object

Outputs

None

Definition

USING: combinators continuations io kernel namespaces system
tools.deploy.config ;

IN: tools.deploy.shaker

: deploy-error-handler ( quot -- )
    [
        strip-debugger?
        [ original-error get die-with2 ] [
            [:c] ( -- ) execute-effect
            nl [print-error] ( error -- ) execute-effect flush
        ] if 1 exit
    ] recover ; inline