--  vim: ft=ada

overriding function P_Result
  (Node            : access Literal_Type) return Integer is
begin
    return Integer'Value (Text (F_Tok (Node)));
end P_Result;
