read-map ( info -- assoc )

Vocabulary

cbor.private

Inputs

info

an object

Outputs

assoc

an object

Definition

USING: arrays cbor kernel linked-assocs sequences ;

IN: cbor.private

: read-map ( info -- assoc )
    read-unsigned dup +cbor-indefinite+ = [
        drop
        [ read-cbor dup +cbor-break+ = not ]
        [ read-cbor 2array ] produce nip
    ] [ [ read-cbor read-cbor 2array ] replicate ] if
    >linked-hash ;