keyword-number? ( keyword -- ? )

Vocabulary

xmode.marker

Inputs

keyword

an object

Outputs

?

an object

Definition

USING: accessors ascii combinators.short-circuit kernel regexp
sequences xmode.marker.state ;

IN: xmode.marker

: keyword-number? ( keyword -- ? )
    {
        [ current-rule-set highlight-digits?>> ]
        [ dup [ digit? ] any? ]
        [
            dup [ digit? ] all? [
                current-rule-set digit-re>>
                [ dupd matches? ] [ f ] if*
            ] unless*
        ]
    } 0&& nip ;