init-error-handler ( -- )

Vocabulary

continuations.private

Inputs

None

Outputs

None

Definition

USING: continuations kernel kernel.private namespaces ;

IN: continuations.private

: init-error-handler ( -- )
    [
        OBJ-CURRENT-THREAD special-object error-thread
        set-global
        current-continuation error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ] ERROR-HANDLER-QUOT set-special-object ;