advance-squote-payload-noescape ( n string -- n' string )

Vocabulary

modern.html

Inputs

n	an object
string	an object

Outputs

n'	an object
string	an object

Definition

USING: accessors combinators kernel modern modern.slices ;

IN: modern.html

: advance-squote-payload-noescape ( n string -- n' string )
    over [
        { 39 } slice-til-separator-inclusive {
            { f [ to>> over string-expected-got-eof ] }
            { 39 [ drop ] }
        } case
    ] [ string-expected-got-eof ] if ;