set-phi-datastack ( #phi -- )

Vocabulary

compiler.tree.checker

Inputs

#phi

an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences vectors ;

IN: compiler.tree.checker

: set-phi-datastack ( #phi -- )
    phi-in-d>> first length branch-out get [ ] find nip
    swap head* >vector datastack set ;