--  vim: ft=ada

overriding function P_Result (Node : access Bare_Literal_Type) return Integer
is
begin
    return Integer'Value (Image (Node.Text));
end P_Result;
