Vocabulary
modern

Inputs
nan object
stringan object
tagan object


Outputs
n'an object
stringan object
seqan object


Definition


:: read-string ( n string tag -- n' string seq )
n string read-string-payload drop :> n' n' string n'
[ n string string-expected-got-eof ] unless n n' 1 -
string <slice> n' 1 - n' string <slice> tag -rot 3array ;