 M: vector #alien-invoke, #alien-invoke boa node, ;
 M: vector #alien-indirect, #alien-indirect boa node, ;
 M: vector #alien-assembly, #alien-assembly boa node, ;
-M: vector #alien-callback, <#alien-callback> node, ;
+M: vector #alien-callback, #alien-callback boa node, ;


TUPLE: #alien-callback < node params child ;

: <#alien-callback> ( params child -- node )
    #alien-callback boa ;

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

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

    { } { } <#data-shuffle> ;

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

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

