with-nested-compilation-unit ( quot -- )
Factor handbook » The implementation » Definitions » Compilation units

Prev:	with-compilation-unit ( quot -- )
Next:	Compilation units internals

Vocabulary
compiler.units

Inputs

quot	a quotation

Outputs
None

Word description
Calls a quotation in a new compilation unit. The only difference between this word and with-compilation-unit is that variables used by the parser to associate definitions with source files are not rebound.

Notes
This word is used by Parse time evaluation to ensure that definitions in nested blocks are correctly recorded. User code should not depend on parser internals in such a way that calling this combinator is required.

Definition

USING: assocs classes.tuple.private compiler.units.private
continuations definitions kernel namespaces ;

IN: compiler.units

: with-nested-compilation-unit ( quot -- )
    H{ } clone HS{ } clone changed-definitions pick set-at
    HS{ } clone maybe-changed pick set-at
    HS{ } clone changed-effects pick set-at
    HS{ } clone outdated-generics pick set-at
    H{ } clone outdated-tuples pick set-at
    HS{ } clone new-words pick set-at [
        add-nesting-observer
        [ remove-nesting-observer finish-compilation-unit ]
        finally
    ] with-variables ; inline