(set-tag) ( -- )

Vocabulary

asn1

Inputs

None

Outputs

None

Definition

USING: accessors kernel math namespaces ;

IN: asn1

: (set-tag) ( -- )
    elements get id>> 31 bitand dup elements get tag<< 31 <
    [ get-id unsupported-tag-encoding ] unless ;