slurp-tree ( tree quot: ( ... entry -- ... ) getter: ( tree -- node ) -- ... )

Vocabulary

trees.private

Inputs

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

Outputs

None

Definition

USING: accessors kernel ;

IN: trees.private

:: slurp-tree
    ( tree quot: ( ... entry -- ... ) getter: ( tree -- node ) -- ... )
    [ tree count>> 0 = ] [ tree getter call quot call ] until ;
    inline