Maps an S3 AST node onto its schema node type, resolving the
declaration/reference ambiguity through the "multimod" class marker: a
node carrying it is a declaration, one without it is a reference.
Value
A single string naming a node type in ast_schema(), or
NA_character_ if x is not an AST node or its class is unknown.
Examples
schema_type(ast_symbol("t"))
#> [1] "symbol"
schema_type(ast_set("tech")) # a reference
#> [1] "set_ref"
schema_type(new_set("tech")) # a declaration
#> [1] "set_decl"
