?push-children ( node queue -- )

Vocabulary

trees.private

Inputs

node	an object
queue	an object

Outputs

None

Definition

USING: accessors deques kernel ;

IN: trees.private

: ?push-children ( node queue -- )
    [ [ left>> ] [ right>> ] bi ]
    [ [ over [ push-front ] [ 2drop ] if ] curry bi@ ] bi* ;