node-link@ ( node ? -- node )

Vocabulary

trees.private

Inputs

node	an object
?	an object

Outputs

node

an object

Definition

USING: accessors kernel ;

IN: trees.private

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