mark-token-loop ( -- )

Vocabulary

xmode.marker

Inputs

None

Outputs

None

Definition

USING: combinators.short-circuit kernel math namespaces
sequences xmode.marker.state ;

IN: xmode.marker

: mark-token-loop ( -- )
    position get line get length < [
        {
            [ check-end-delegate ]
            [ check-every-rule ]
            [ check-word-break ]
        } 0|| drop position inc mark-token-loop
    ] when ;