(* Copyright (C) 1990, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

MODULE ASTName;

IMPORT AST, AST_Name;

PROCEDURE OfNode(n: AST.NODE): TEXT RAISES {}=
  BEGIN
    RETURN n.name();    
  END OfNode;

BEGIN

END ASTName.