fast-tr-quot ( mapping -- quot )


Vocabulary
tr.private

Inputs
mappingan object


Outputs
quotan object


Definition
USING: kernel sequences ;

IN: tr.private

: fast-tr-quot ( mapping -- quot )
[ tr-nth ] curry [ map! drop ] curry ;