stream-read-json ( stream -- objects )

Vocabulary

json

Inputs

stream

an object

Outputs

objects

an object

Definition

USING: io json.private kernel math namespaces ;

IN: json

: stream-read-json ( stream -- objects )
    0 json-depth [
        V{ } clone over [ stream-read1 ] curry [ scan ] while*
        nip json-depth get zero? [ json-error ] unless
    ] with-variable ;