linebreak? ( ch -- ? )

Vocabulary

splitting.private

Inputs

ch

an object

Outputs

?

an object

Definition

USING: kernel kernel.private math math.order ;

IN: splitting.private

: linebreak? ( ch -- ? )
    { fixnum } declare dup 31 <
    [ dup 10 13 between? [ drop t ] [ 28 30 between? ] if ] [
        dup 133 <
        [ drop f ]
        [ dup 133 = [ drop t ] [ 8232 8233 between? ] if ] if
    ] if ; inline