insert-escapes ( string -- string )

Vocabulary

peg.ebnf.private

Inputs

string

an object

Outputs

string

an object

Definition

USING: kernel make peg peg.search ;

IN: peg.ebnf.private

: insert-escapes ( string -- string )
    [
        "\t" token [ drop "\\t" ] action , "\n" token
        [ drop "\\n" ] action , "\r" token [ drop "\\r" ] action
        ,
    ] choice* peg-replace ;