1.0name-start

Vocabulary

xml.char-classes

Definition

USING: combinators.short-circuit kernel math math.order
sequences unicode.data ;

IN: xml.char-classes

PREDICATE: 1.0name-start < integer
    integer>fixnum-strict dup category-num
    B{ 2 1 5 3 10 } member?
    [ drop t ]
    [ { [ 699 705 between? ] [ "ՙۥۦ_:" member? ] } 1|| ] if ;