restarts. ( -- )

Vocabulary

debugger

Word description

Print a list of restarts for the most recently thrown error to output-stream.

Definition

USING: continuations io namespaces sequences ;

IN: debugger

: restarts. ( -- )
    restarts get [
        nl "The following restarts are available:" print nl
        [ restart. ] each-index
    ] unless-empty ;