aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/integrat.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/integrat.spad.pamphlet')
-rw-r--r--src/algebra/integrat.spad.pamphlet1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/integrat.spad.pamphlet b/src/algebra/integrat.spad.pamphlet
index f70dfe1c..ab2eb2be 100644
--- a/src/algebra/integrat.spad.pamphlet
+++ b/src/algebra/integrat.spad.pamphlet
@@ -71,6 +71,7 @@ FunctionSpaceComplexIntegration(R, F): Exports == Implementation where
internalIntegrate(f, x) ==
f := distribute(f, x::F)
+ g : F
any?(has?(operator #1, "rtrig"),
[k for k in tower(g := realElementary(f, x))
| member?(x, variables(k::F))]$List(Kernel F))$List(Kernel F) =>