Skip to content

Commit 0c28c39

Browse files
Remove DownValues hack for Mathics/WMA return value compatibility.
1 parent 781f84c commit 0c28c39

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

IntegrationUtilityFunctions.m

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -7734,11 +7734,8 @@ If u is an expression of the form f (Sqrt[a+b*x+c*x^2],x), f (x,x) is a rational
77347734

77357735
ClearAll[FixIntRules,FixIntRule,FixRhsIntRule]
77367736

7737-
dvMathicsToMath = RuleDelayed[Verbatim[HoldPattern][Verbatim[Condition][lhs_,cond_]],rhs_] :> RuleDelayed[HoldPattern[lhs],Condition[rhs,cond]];
7738-
dvMathToMathics = RuleDelayed[Verbatim[HoldPattern][lhs_], Verbatim[Condition][rhs_,cond_]] :> RuleDelayed[HoldPattern[Condition[lhs,cond]],rhs];
7739-
77407737
FixIntRules[] :=
7741-
(DownValues[Int]=FixIntRules[DownValues[Int] /. dvMathicsToMath] /. dvMathToMathics; Null)
7738+
(DownValues[Int]=FixIntRules[DownValues[Int]]; Null)
77427739

77437740

77447741
FixIntRules[rulelist_] := Block[{Int, Subst, Simp, Star},

0 commit comments

Comments
 (0)