--  vim: ft=ada

overriding function Short_Image (Node : access Base_Id_Type) return Text_Type
is
   Self : access ${root_node_value_type}'Class := Node;
begin
   return "<" & To_Text (Kind_Name (Self))
          & " """ & Text (F_Tok (Node)) & """ "
          & To_Text (Image (Sloc_Range (Node))) & ">";
end Short_Image;
