read-string ( $n $string $char -- n' string payload )

Vocabulary

modern.html

Inputs

$n	an object
$string	an object
$char	an object

Outputs

n'	an object
string	an object
payload	an object

Definition

USING: kernel math sequences ;

IN: modern.html

:: read-string ( $n $string $char -- n' string payload )
    $n $string $char 39 =
    [ advance-squote-payload-noescape ]
    [ advance-dquote-payload-noescape ] if drop
    :> $n' $n' $string $n $n' 1 - $string <slice> ;