From 1a3f6eae6f2ef30a6b9249e595c2f37e0ebd002b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 4 Jul 2008 16:15:02 +0000 Subject: Fix AW/429 * algebra/multpoly.spad.pamphlet (IndexedExponents): Fix comment type. --- src/algebra/multpoly.spad.pamphlet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/algebra') 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]) -- cgit v1.2.3