--- a/absyntax_utils/search_expression_type.cc	Thu Jul 07 10:49:08 2011 +0200
+++ b/absyntax_utils/search_expression_type.cc	Fri Jul 08 11:06:27 2011 +0200
@@ -191,6 +191,16 @@
   return NULL;
 }
 
+symbol_c *search_expression_type_c::default_literal_type(symbol_c* symbol) {
+  if (is_literal_integer_type(symbol)) {
+    return (symbol_c *)&search_constant_type_c::lint_type_name;
+  }
+  else if (is_literal_real_type(symbol)) {
+    return (symbol_c *)&search_constant_type_c::lreal_type_name;
+  }
+  return symbol;
+}
+
 
 integer_c search_expression_type_c::integer("1"); // what default value should we use here ???
 #include "search_type_code.c"