diff options
-rw-r--r-- | Tools/CodeGen/Differencing.m | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Tools/CodeGen/Differencing.m b/Tools/CodeGen/Differencing.m index 0eb864e..ff6db9c 100644 --- a/Tools/CodeGen/Differencing.m +++ b/Tools/CodeGen/Differencing.m @@ -273,8 +273,8 @@ ComponentDerivativeOperatorMacroDefinition[componentDerivOp:(name_[inds___] -> e (* Print["rhs2 == ", FullForm[rhs2]];*) - pat = Times[spInExpr:(Power[spacing[_],_]..), (Rational[x_,y_])..., rest__]; -(* Print["pat == ", pat//FullForm];*) + pat = (Times[spInExpr:(Power[spacing[_],_]...), (Rational[x_,y_])..., rest__]) | (rest__); + (* Print["pat == ", pat//FullForm]; *) If[MatchQ[rhs2, pat], (* Print["matches!"];*) |