(* Copyright (C) 1990, Digital Equipment Corporation *) (* All rights reserved. *) (* See the file COPYRIGHT for a full description. *) INTERFACE M3AST; IMPORT AST; TYPE NODE = AST.NODE; (* If we made M3AST.NODE <: NODE, then the tree-walk methods would have to narrow before invoking any M3AST.NODE methods. So, we equate the types. *) END M3AST.