aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/multpoly.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/multpoly.spad.pamphlet')
-rw-r--r--src/algebra/multpoly.spad.pamphlet4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/multpoly.spad.pamphlet b/src/algebra/multpoly.spad.pamphlet
index 99ab7833..864d4343 100644
--- a/src/algebra/multpoly.spad.pamphlet
+++ b/src/algebra/multpoly.spad.pamphlet
@@ -702,10 +702,10 @@ IndexedExponents(Varset:OrderedSet): C == T where
Rep:= List Term
x:%
t:Term
- coerceOF(t):OutputForm == --++ converts term to OutputForm
+ coerceOF(t):OutputForm == -- converts term to OutputForm
t.c = 1 => (t.k)::OutputForm
(t.k)::OutputForm ** (t.c)::OutputForm
- coerce(x):OutputForm == ++ converts entire exponents to OutputForm
+ coerce(x):OutputForm == -- converts entire exponents to OutputForm
null x => 1::Integer::OutputForm
null rest x => coerceOF(first x)
reduce("*",[coerceOF t for t in x])