diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-05-20 15:50:16 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-05-20 15:54:20 +0200 |
commit | bfba9bad6d1628e9880ced2aee809584e45e2b5b (patch) | |
tree | 52c02907b0bc7474b6c9f60f2194cf6b6e83288a | |
parent | e0be5e82adfb8140cb5854e744ccf31bbf5f5c8e (diff) |
CalculationFunction.m: Correct debugging code
-rw-r--r-- | Tools/CodeGen/CalculationFunction.m | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m index 1ca9513..cd855b7 100644 --- a/Tools/CodeGen/CalculationFunction.m +++ b/Tools/CodeGen/CalculationFunction.m @@ -221,7 +221,7 @@ printEq[eq_] := 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]]; |