metrics_csv wrong parameter for expression handling

diff --git a/src-wsl/metrics_csv.wsl b/src-wsl/metrics_csv.wsl
index be918eb..d120620 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