stream-read-json ( stream -- object )

Vocabulary

json

Inputs

stream

an object

Outputs

object

an object

Definition

USING: io json.private kernel sequences vectors ;

IN: json

: stream-read-json ( stream -- object )
    [
        V{ } clone over
        [ stream-read1 [ scan dup first vector? ] [ f ] if* ]
        curry loop nip
    ] check-json-depth get-json ;