each-bfs-node ( tree quot: ( ... entry -- ... ) -- ... )

Vocabulary

trees.private

Inputs

tree	an object
quot	a quotation with stack effect ( ... entry -- ... )

Outputs

None

Definition

USING: accessors deques dlists kernel ;

IN: trees.private

: each-bfs-node ( tree quot: ( ... entry -- ... ) -- ... )
    [ root>> <dlist> [ push-front ] keep dup ] dip
    [ [ drop node>entry ] prepose [ ?push-children ] 2bi ]
    2curry slurp-deque ; inline