to-times ( term n -- ast )

Vocabulary

regexp.ast

Inputs

term	an object
n	an object

Outputs

ast

an object

Definition

USING: arrays kernel math ;

IN: regexp.ast

: to-times ( term n -- ast )
    [ drop epsilon ]
    [ dupd 1 - to-times 2array <concatenation> <maybe> ] if-zero
    ;