leaf? ( node -- ? )

Vocabulary

trees.private

Inputs

node

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel ;

IN: trees.private

: leaf? ( node -- ? ) { [ left>> not ] [ right>> not ] } 1&& ;