(read-json-string) ( stream accum -- accum )


Vocabulary
json.private

Inputs
streaman object
accuman object


Outputs
accuman object


Definition
USING: io kernel kernel.private sbufs sequences ;

IN: json.private

: (read-json-string) ( stream accum -- accum )
{ sbuf } declare "\\\"" pick stream-read-until
[ append! ] dip 34 = [ nip ] [ (read-json-escape) ] if ;