splay-at ( key node: node -- node )


Vocabulary
trees.splay.private

Inputs
keyan object
nodea node


Outputs
nodean object


Definition
USING: kernel trees.private typed ;

IN: trees.splay.private

TYPED: splay-at ( key node: node -- node )
[ T{ node } clone dup dup ] 2dip (splay) nip assemble ;