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.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/integrat.spad.pamphlet b/src/algebra/integrat.spad.pamphlet
index ab2eb2be..97eb0d2e 100644
--- a/src/algebra/integrat.spad.pamphlet
+++ b/src/algebra/integrat.spad.pamphlet
@@ -195,7 +195,7 @@ FunctionSpaceIntegration(R, F): Exports == Implementation where
not empty? rest rest l
integrate(f, x) ==
- not real? f => complexIntegrate(f, x)
+ R has complex or not real? f => complexIntegrate(f, x)
f := distribute(f, x::F)
tf := [k for k in tower f | member?(x, variables(k::F)@List(SE))]$List(K)
ltf := select(is?(operator #1, "tan"::SE), tf)