read-string ( n string tag -- n' string seq )

Vocabulary

modern

Inputs

n	an object
string	an object
tag	an object

Outputs

n'	an object
string	an object
seq	an object

Definition

USING: arrays kernel math sequences ;

IN: modern

:: read-string ( n string tag -- n' string seq )
    n string advance-dquote-payload drop
    :> n' n' string tag n n' 1 - string <slice> n' 1 -
    n' string <slice> 3array ;