<#phi> ( d-phi-in d-phi-out terminated -- node )

Vocabulary

compiler.tree

Inputs

d-phi-in	an object
d-phi-out	an object
terminated	an object

Outputs

node

an object

Definition

USING: accessors kernel ;

IN: compiler.tree

: <#phi> ( d-phi-in d-phi-out terminated -- node )
    #phi new swap >>terminated swap >>out-d swap >>phi-in-d ;