stream-read-edn-map ( stream -- vector )

Vocabulary

edn.private

Inputs

stream

an object

Outputs

vector

an object

Definition

USING: combinators edn kernel linked-assocs make
tools.continuations ;

IN: edn.private

: stream-read-edn-map ( stream -- vector )
    [
        [
            dup stream-read-edn1 {
                { f [ break edn-error ] }
                { 44 [ t ] }
                { 125 [ f ] }
                [
                    dupd stream-read-edn-object edn-check-eof
                    [ dup stream-read-edn ] dip ,, t
                ]
            } case
        ] loop
    ] LH{ } make nip ;