save-error ( error -- )

Vocabulary

continuations.private

Inputs

error

an error

Outputs

None

Word description

Called by the error handler to set the error and restarts global variables after an error was thrown.

Notes

Calling this word directly is not necessary in most cases. Higher-level words call it automatically.

Definition

USING: continuations kernel namespaces ;

IN: continuations.private

: save-error ( error -- )
    [ error set-global ]
    [ compute-restarts restarts set-global ] bi ;