set-node-link@ ( left parent ? -- )

Vocabulary

trees.private

Inputs

left	an object
parent	an object
?	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: trees.private

: set-node-link@ ( left parent ? -- )
    go-left? xor [ left<< ] [ right<< ] if ;