(node>subalist-left) ( from-key node start-comparator: ( key1 key2 -- ? ) -- )

Vocabulary

trees.private

Inputs

from-key	an object
node	an object
start-comparator	a quotation with stack effect ( key1 key2 -- ? )

Outputs

None

Definition

USING: accessors kernel ;

IN: trees.private

:: (node>subalist-left)
    ( from-key node start-comparator: ( key1 key2 -- ? ) -- )
    node [
        node key>> from-key start-comparator call
        :> node-right? node-right? [
            node [
                left>> [ from-key ] dip
                start-comparator (node>subalist-left)
            ] [ entry, ] bi
        ] when node right>> node-right?
        [ (node>alist) ] [
            [ from-key ] dip
            start-comparator (node>subalist-left)
        ] if
    ] when ; inline recursive