(node>alist) ( node -- )

Vocabulary

trees.private

Inputs

node

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: trees.private

: (node>alist) ( node -- )
    [
        [ left>> (node>alist) ] [ entry, ]
        [ right>> (node>alist) ] tri
    ] when* ;