set-objtype ( syntax -- )

Vocabulary

asn1

Inputs

syntax

an object

Outputs

None

Definition

USING: accessors arrays assocs kernel namespaces sequences ;

IN: asn1

: set-objtype ( syntax -- )
    builtin-syntax 2array [
        elements get tagclass>> of elements get encoding>> of
        elements get tag>> of [ elements get objtype<< ] when*
    ] each ;