read-array ( info -- array )

Vocabulary

cbor.private

Inputs

info

an object

Outputs

array

an object

Definition

USING: cbor kernel sequences ;

IN: cbor.private

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