advance-dquote-payload ( n string -- n' string )

Vocabulary

modern

Inputs

n	an object
string	an object

Outputs

n'	an object
string	an object

Definition

USING: accessors combinators kernel modern.slices ;

IN: modern

: advance-dquote-payload ( n string -- n' string )
    over [
        { 92 34 } slice-til-separator-inclusive {
            { f [ to>> over string-expected-got-eof ] }
            { 34 [ drop ] }
            {
                92
                [ drop take-char drop advance-dquote-payload ]
            }
        } case
    ] [ string-expected-got-eof ] if ;