tr-quot ( mapping -- quot )

Vocabulary

tr.private

Inputs

mapping

an object

Outputs

quot

an object

Definition

USING: ascii kernel sequences ;

IN: tr.private

: tr-quot ( mapping -- quot )
    '[ [ dup ascii? [ _ tr-nth ] when ] map ] ;