assure-small ( ch -- ch )

Vocabulary

quoted-printable.private

Inputs

ch

an object

Outputs

ch

an object

Definition

USING: kernel math ;

IN: quoted-printable.private

: assure-small ( ch -- ch )
    dup 256 <
    [ "Cannot quote a character greater than 255" throw ] unless
    ;