collect-variables ( -- hash )

Vocabulary

xml.private

Inputs

None

Outputs

hash

an object

Definition

USING: assocs io kernel namespaces xml.name xml.state ;

IN: xml.private

: collect-variables ( -- hash )
    { input-stream extra-entities spot ns-stack text-now? }
    [ dup get ] H{ } map>assoc ;