?restart-with-words ( words error -- * )

Vocabulary

vocabs.parser.private

Inputs

words	an object
error	an object

Outputs

None

Definition

USING: accessors continuations kernel vocabs.parser ;

IN: vocabs.parser.private

: ?restart-with-words ( words error -- * )
    dup condition? [
        [ error>> ] [ restarts>> rethrow-restarts ]
        [ continuation>> [ continue-with ] 2curry with-words ]
        tri
    ] [ nip rethrow ] if ;