refactor chirality sums

FlexibleSUSY · Mar 29, 2017 · 24fe25e · 24fe25e
1 parent 87ad37d
commit 24fe25e
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/meta/SelfEnergies.m b/meta/SelfEnergies.m
@@ -425,9 +425,11 @@ therefore not be accessed in the form Glu(gO2).
     result <> " = " <> ExpressionToString[expr, heads] <> ";\n";
 
 PrepareExpr[{S_,R_,L_}, CConversion`ChiralitySum[t_], vertexRules_] :=
-    PrepareExpr[S, t, vertexRules] CConversion`PS +
-    PrepareExpr[R, t, vertexRules] SARAH`PR +
-    PrepareExpr[L, t, vertexRules] SARAH`PL;
+    CConversion`RefactorSums[
+        PrepareExpr[S, t, vertexRules] CConversion`PS +
+        PrepareExpr[R, t, vertexRules] SARAH`PR +
+        PrepareExpr[L, t, vertexRules] SARAH`PL
+    ];
 
 PrepareExpr[expr_, _, vertexRules_] :=
     expr /.