<char-range> ( char1 char2 -- regexp )

Vocabulary

regexp.combinators

Inputs

char1	an object
char2	an object

Outputs

regexp

an object

Definition

USING: kernel regexp regexp.classes sequences strings ;

IN: regexp.combinators

: <char-range> ( char1 char2 -- regexp )
    [
        [ 1string ] bi@ [ "[" "-" surround ] [ "]" append ] bi*
        append
    ] [ <range-class> ] 2bi make-regexp ;