split-literals ( transitions -- case default )

Vocabulary

regexp.compiler.private

Inputs

transitions

an object

Outputs

case	an object
default	an object

Definition

USING: assocs kernel math sequences ;

IN: regexp.compiler.private

: split-literals ( transitions -- case default )
    { } assoc-like [ first integer? ] partition
    [ [ literals>cases ] keep ] dip non-literals>dispatch ;