tr-quot ( mapping -- quot )


Vocabulary
tr.private

Inputs
mappingan object


Outputs
quotan object


Definition
USING: ascii kernel sequences ;

IN: tr.private

: tr-quot ( mapping -- quot )
[ tr-nth ] curry [ [ dup ascii? ] ] dip [ when ] curry
compose [ map ] curry ;