with-words ( words quot -- )

Vocabulary

vocabs.parser

Inputs

words	an assoc
quot	a quotation

Outputs

None

Word description

Calls a quotation with the words added to the current manifest, removing them from the manifest afterwards and properly handling any errors and restarts.

Definition

USING: continuations kernel vocabs.parser.private ;

IN: vocabs.parser

: with-words ( words quot -- )
    [ over '[ _ use-words @ _ unuse-words ] ]
    [ drop dup '[ _ unuse-words _ swap ?restart-with-words ] ]
    2bi recover ; inline