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

INTERFACE ASTName;

IMPORT AST;

PROCEDURE OfNode(n: AST.NODE): TEXT RAISES {};
(* Equivalent to "n.name()", but useful for debugging if
theere is no Modula-3 source level debugger available. *)

END ASTName.