read-map ( info -- alist )

Vocabulary

cbor.private

Inputs

info

an object

Outputs

alist

an object

Definition

USING: arrays cbor kernel sequences ;

IN: cbor.private

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