with-other-side ( quot -- )

Vocabulary

trees.private

Inputs

quot

an object

Outputs

None

Definition

USING: kernel math namespaces ;

IN: trees.private

: with-other-side ( quot -- )
    current-side get neg swap with-side ; inline