INTERFACE M3LSubtype;

IMPORT AST, M3AST_AS, ASTWalk;

PROCEDURE SetNode(
    cl: ASTWalk.Closure;
    n: AST.NODE;
    vm: ASTWalk.VisitMode)
    RAISES {};

If ISTYPE(n, M3AST_AS.Object_type), compute the pl_subtype_s attribute

PROCEDURE Set(cu: M3AST_AS.Compilation_Unit) RAISES {};

ASTWalk.VisitNodes(cu, NEW(ASTWalk.Closure, callback := SetNode));

END M3LSubtype.