2node ( first second -- node )

Vocabulary

persistent.vectors.private

Inputs

first	an object
second	an object

Outputs

node

an object

Definition

USING: accessors arrays kernel math ;

IN: persistent.vectors.private

: 2node ( first second -- node )
    [ 2array ] [ drop level>> 1 + ] 2bi node boa ;