stream-read-edn-sequence ( stream end exemplar -- seq )

Vocabulary

edn.private

Inputs

stream	an object
end	an object
exemplar	an object

Outputs

seq

an object

Definition

USING: combinators edn kernel make ;

IN: edn.private

:: stream-read-edn-sequence ( stream end exemplar -- seq )
    [
        stream [
            dup stream-read-edn1 {
                { f [ edn-error ] }
                { end [ f ] }
                [
                    dupd stream-read-edn-object edn-check-eof ,
                    t
                ]
            } case
        ] loop
    ] exemplar make nip ; inline