CalculationFunction.m: Correct debugging code

ianhinder · May 20, 2011 · bfba9ba · bfba9ba
1 parent e0be5e8
commit bfba9ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m
@@ -221,7 +221,7 @@ pathalogical enough (e.g. {s1 -> s2, s2 -> s1} would not be
     split[ x_ + y___] := { x, " + ..."};
     split[-x_ + y___] := {-x, " + ..."};
     split[ x_       ] := { x, ""};
-    rhsSplit = split[Expand@ReplacePowers@rhs];
+    rhsSplit = split[Expand@ReplacePowers[rhs,False]];
     rhsString = ToString@CForm[rhsSplit[[1]]] <> rhsSplit[[2]];
     InfoMessage[InfoFull, " " <> ToString@lhs <> " -> " <> rhsString]];