check-tr ( from to -- )

Vocabulary

tr.private

Inputs

from	an object
to	an object

Outputs

None

Definition

USING: ascii kernel sequences tr ;

IN: tr.private

: check-tr ( from to -- )
    [ [ ascii? ] all? ] both? [ bad-tr ] unless ;