save/restore-error ( quot -- )

Vocabulary

bootstrap.stage2

Inputs

quot

an object

Outputs

None

Definition

USING: continuations kernel namespaces ;

IN: bootstrap.stage2

: save/restore-error ( quot -- )
    error get-global original-error get-global
    error-continuation get-global [ call ] 3dip
    error-continuation set-global original-error set-global
    error set-global ; inline