(read-array) ( -- )

Vocabulary

asn1

Inputs

None

Outputs

None

Definition

USING: accessors kernel make namespaces ;

IN: asn1

: (read-array) ( -- )
    elements get id>> [
        elements get syntax>> read-ber dup end =
        [ drop ] [ , (read-array) ] if
    ] when ;