read-json-string ( stream -- str )

Vocabulary

json.private

Inputs

stream

an object

Outputs

str

an object

Definition

USING: io kernel sbufs sequences ;

IN: json.private

: read-json-string ( stream -- str )
    "\\\"" over stream-read-until 34 =
    [ nip ] [ >sbuf (read-json-escape) "" like ] if ;