set-tagclass ( -- )

Vocabulary

asn1

Inputs

None

Outputs

None

Definition

USING: accessors math namespaces sequences ;

IN: asn1

: set-tagclass ( -- )
    get-id -6 shift tag-classes nth elements get tagclass<< ;