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 ] curry ] dip compose ] dip
        [ unuse-words ] curry compose
    ] [
        drop dup [ [ unuse-words ] curry ] dip
        [ swap ?restart-with-words ] curry compose
    ] 2bi recover ; inline