parse-regexp ( accum -- accum )

Vocabulary

regexp.private

Inputs

accum

an object

Outputs

accum

an object

Definition

USING: kernel lexer namespaces regexp sequences splitting ;

IN: regexp.private

: parse-regexp ( accum -- accum )
    lexer get
    [ take-until "\\/" "/" replace ] [ parse-noblank-token ] bi
    <optioned-regexp> compile-next-match suffix! ;