diff -r a0679c78143a -r 83963465b773 stage4/generate_c/search_type_code.c
--- a/stage4/generate_c/search_type_code.c	Fri Jan 09 17:05:24 2009 +0100
+++ b/stage4/generate_c/search_type_code.c	Wed Jan 14 19:47:41 2009 +0100
@@ -13336,7 +13336,7 @@
             symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
             last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
             
-            if(search_expression_type->is_num_type(IN1_type_symbol))
+            if(search_expression_type->is_real_type(IN1_type_symbol))
             {
         
                 {
@@ -25595,7 +25595,7 @@
             symbol_c *IN1_type_symbol = param_data_type;
             last_type_symbol = param_data_type;
             
-            if(search_expression_type->is_num_type(IN1_type_symbol))
+            if(search_expression_type->is_real_type(IN1_type_symbol))
             {
         
                 {