with-pending-new-words ( quot -- )

Vocabulary

compiler.units.private

Inputs

quot

an object

Outputs

None

Definition

USING: continuations definitions kernel namespaces sequences ;

IN: compiler.units.private

: with-pending-new-words ( quot -- )
    new-words get pending-new-words get-global push
    [ [ finish-compilation-unit ] finally ] [
        new-words get pending-new-words get-global remove-eq!
        drop
    ] finally ; inline