 M: vector #enter-recursive, <#enter-recursive> node, ;
 M: vector #return-recursive, <#return-recursive> node, ;
 M: vector #call-recursive, <#call-recursive> node, ;
-M: vector #terminate, <#terminate> node, ;
+M: vector #terminate, #terminate boa node, ;
 M: vector #if, <#if> node, ;
 M: vector #dispatch, <#dispatch> node, ;
 M: vector #phi, <#phi> node, ;

    { } { } <#data-shuffle> ;

TUPLE: #terminate < node in-d in-r ;

: <#terminate> ( in-d in-r -- node )
    #terminate new
        swap >>in-r
        swap >>in-d ;

TUPLE: #branch < node in-d children live-branches ;



TUPLE: #alien-callback < node params child ;

: node, ( node -- ) stack-visitor get push ;

GENERIC: inputs/outputs ( #renaming -- inputs outputs )
