(with-manifest) ( quot manifest -- )

Vocabulary

vocabs.parser

Inputs

quot	an object
manifest	an object

Outputs

None

Definition

USING: compiler.units continuations kernel namespaces words ;

IN: vocabs.parser

: (with-manifest) ( quot manifest -- )
    manifest [
        [ call ] [
            [ manifest get add-definition-observer call ]
            [ manifest get remove-definition-observer ] finally
        ] if-bootstrapping
    ] with-variable ; inline