with-side ( side quot -- )

Vocabulary

trees.private

Inputs

side	an object
quot	an object

Outputs

None

Definition

USING: kernel namespaces ;

IN: trees.private

: with-side ( side quot -- )
    [ current-side ] dip with-variable ; inline