metrics_csv wrong parameter for expression handling

diff --git a/src-wsl/metrics_csv.wsl b/src-wsl/metrics_csv.wsl
index be918eb7ddca156984a3fde9d04e8d7d8e4eb26d..d12062007d4f676317a1cc20d4443acd1f07da2d 100644 (file)
--- a/src-wsl/metrics_csv.wsl
+++ b/src-wsl/metrics_csv.wsl
@@ -75,7 +75,7 @@ MW_PROC @Process_File(filename VAR metricslist) ==
                        metricslist := < @Struct_Metric(@Program) > ++ metricslist ;
                        metricslist := < @Total_Size(@Program) > ++ metricslist ;
                        metricslist := < @CFDF_Metric(@Program) > ++ metricslist ;
-                       metricslist := < @Gen_Type_Count("T_Expression",@Program) > ++ metricslist ;
+                       metricslist := < @Gen_Type_Count(T_Expression,@Program) > ++ metricslist ;
                        metricslist := < @Stat_Count(@Program) > ++ metricslist ;
                        metricslist := < @Essential(@Program) > ++ metricslist ;
                        metricslist := < @McCabe(@Program) > ++ metricslist